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COMMODORE GEEFT PRIUS PRIUS 


cant ea 





Ze en bij Commodore Ne- 
derland de belangstellenden 
voor de nieuwe PC lang in 
spanning weten te houden over 
de exacte prijs van het appa- 
raat. Zelfs tijdens de groots op- 
gezette bijeenkomst voor pers 
en handelaren treuzelden de ver- 





Publiciteitsbureau Aspeslagh 
Communicatie uit Alphen aan 
den Rijn heeft van het ministe- 
rie van Onderwijs en Weten- 
schappen opdracht gekregen om 
een nationale wedstrijd te orga- 
niseren ter selectie van 8 jonge- 
ren voor deelname aan een 
EEG-week te Turijn in juli 
1985. De wedstrijd heeft als titel 
meegekregen MICRO MAS- 
TERS HOLLAND. Er zijn drie 
categorieén in de wedstrijd, te 


antwoordelijke mensen nog met 
die bekendmaking. Via een bij- 

na leuke pantomime-act werd de 
spanning uiteindelijk verbroken. 
Slechts f 5695,- exclusief BTW 

moet de nieuwe hoop van Com- 
modore gaan kosten. Inderdaad 
een zeer aantrekkelijke prijs, zij 


weten: programmatuur, toepas- 
sing en creatief. Programma’s 
mogen alleen in Basic of Pascal 
zijn geschreven. Onder toepas- 
sing verstaat men muziekinstal- 
laties, robots en technisch speel- 
goed dat door een eigen compu- 
terprogramma wordt aan- 
gestuurd. Creatief zijn bijvoor- 
beeld spellen en computerkunst. 


De deelnemers moeten tussen de 
15 en 18 jaar zijn, nog op 


De Commodore PC-10 maakt de be- 
lofte waar. 


het dat het altijd nog veel duur- 
der is dan de 1200 dollar die het 
apparaat in Amerika moet 
kosten. Dat bedrag geldt dus 
voor de PC 10 met een RAM- 
geheugen van 256K en twee dis- 
kettestations a 360K. Later dit 
jaar zal Commodore de PC 20 
introduceren die over een dis- 
kettestation @ 360K beschikt en 
bovendien over een harddisk 
van 10Mb. De prijs van deze 
machine zal pas in de loop van 
deze maand bekend worden 
gemaakt. 

Commodore stelt zich erg veel 
voor van de nieuwe PC. Direc- 
teur Rodenberg verstoutte zich 
Zelfs te beweren dat men ver- 
wachtte met de nieuwe PC bin- 
nen 2 a3 jaar een zelfde markt- 
aandeel te behalen als met de 
CBM-64,nu. De CBM-64 heeft - 
volgens Commodore — in Ne- 
derland een marktaandeel van 
55 procent. Om dat ambitieuze 
doel te bereiken gooit Commo- 
dore er alle marketingkracht te- 
genaan die ze in huis hebben. 


RO MASTERS HOLLAND 


school zitten, tenminste een 
vreemde taal spreken en zelf be- 
schikken over het materiaal dat 
nodig is voor de presentatie. 
Via landelijke voorrondes zullen 
tenslotte 125 kandidaten door 
kunnen dringen tot de finale, 
die op 27 april in de Rotterdam- 
se Ahoy zal worden gehouden. 
Nadere inlichtingen over de 
wedstrijd kunnen worden inge- 
wonnen bij het wedstrijdsecreta- 
riaat, telefoon 01720-92891. 





Uit uitlatingen tijdens de pers- 
conferentie vorige maand mag 
worden afgeleid dat Commodo- 
re grote haast maakt met de in- 
troductie van de langverwachte 
C-128, de wondermachine met 
drie ingebouwde processoren die 
als een heel belangrijk voordeel 
heeft dat alle software van de 
CBM-64 er op kan draaien. Bij 
Commodore spreekt men dan 
ook van een ’opgewaardeerde 
64’. De reden voor die haast is 
ongetwijfeld de tegenvallende 
verkopen van de CBM-64 van 
de laatste tijd. Gefluisterd 
wordt dat Commodore met gi- 
gantische voorraden van die ma- 
' chine is blijven zitten omdat de 
eindejaars-verkopen zwaar zijn 
tegenvallen. In Amerika schijnt 
de machine dan ook gedumpt te 
worden. Momenteel wordt daar 
nog slechts 120 dollar gevraagd 
voor een CBM-64 en naar ver- 





De fraaie C-128, zeer binnenkort te verwachten. 


128 SNEL, LCD NIET? 


wachting zal die prijs zelfs nog 
onder de 100 dollar zakken. Dat 
dreigt te gaan lijken op het 
Texas Instruments-syndroom. 
Over de andere nieuwe machi- 
nes van Commodore blijft in- 
middels grote onduidelijkheid 
bestaan. Zo is het bijvoorbeeld 
nog helemaal niet zeker dat de 
LCD, de schootcomputer met 
het LCD-scherm, die Commo- 
dore Dossier signaleerde op de 
CES in Las Vegas, ook binnen 
afzienbare tijd bij ons zal wor- 
den geintroduceerd. Een verte- 
genwoordiger van de Duitse 
vestiging wist zelfs al te melden 
dat een dergelijke machine hele- 
maal niet interessant is voor de 
Europese markt en dus niet zal 
worden geimporteerd. Zo duide- 
lijk stelde de Nederlandse im- 
porteur het in elk geval niet, hij 
kende het apparaat echter ook 
nog alleen van de foto. 


TELEFONISTE OVERBELAST 


In het eerste Commodore Dos- 
sier sporen we onze lezers aan 
op het blad te reageren. Dat 
heeft telefoniste Anneke gewe- 
ten. Blijkbaar is de regel dat 
vragen over programma’s alleen 
schriftelijk kunnen worden 
beantwoord, door veel lezers 
niet helemaal begrepen, Een 
aantal lezers werd zelfs boos als 
Anneke niet naar de redactie 
wilde doorverbinden. Toch is 
daar een goede praktische reden 
voor. De redactie kan de 
stroom telefoontjes gewoon niet 
aan. 


Bovendien zijn veel vragen 
dermate specialistisch dat alleen 
de auteur ze kan beantwoorden. 
Het beste is en blijft het dus 
vragen schriftelijk te stellen. 

Wij kunnen dan de auteur in- 
schakelen als dat nodig is en die 
beantwoordt uw vragen zo snel 
mogelijk, dat wil zeggen meestal 
binnen een week. 

De eerlijkheid gebiedt ons overi- 
gens te zeggen dat veel proble- 
men al worden opgelost als de 
handleiding bij de listings goed 
wordt gelezen. Het staat er echt 
allemaal in. 


BELASTING-PERIKELEN 


Enige problemen met de diverse belastingprogramma’s dit jaar. Over 
het programma dat bij Kluwers belastinggids kon worden aangeschaft, 
kunnen we ons geen oordeel vormen; ons exemplaar wilde niet starten. 
Het programma ’Taks ’64’ startte wel, veelbelovend zelfs. Dat pro- 
gramma liet het ergens halverwege plotseling afweten en was toen niet 
meer voor- of achteruit te branden. En, ere wie ere toekomt, ook ons 
eigen belastingprogramma was niet echt vlekkeloos. De bedragen in de 
regels 4600 en 4660 zijn verwisseld. In regel 4600 moet het bedrag 10298 
dus 13200 zijn en in regel 4660 moet 13200 dan 10298 zijn. 

Slordig. Onze excuses daarvoor. Het pijnlijke van de affaire is dat het 
bewuste foutje in bepaalde gevallen geld zou kunnen kosten. Het nog 
eens nalezen van uw aangifte kan dus nuttig zijn. 


ZERO INTERFACE 


De firma Zero uit Ridderkerk (01804-30233) brengt een parallel printer 
interface op de markt die het mogelijk maakt elke centronics printer op 
de Commodores 64, 20, 16 en Plus/4 aan te sluiten. Centronics printers 
zijn onder meer de bekende merken Star, Epson, Brother, Juki en Sei- 
kosha. De interface neemt geen geheugen in beslag, hoeft niet geladen 
te worden en werkt met alle software. Als extra kan een 16K printerbuf- 
fer worden geleverd waarmee het mogelijk wordt tijdens het uitprinten 
yan een bepaalde tekst of listing gewoon door te werken op de compu- 
ter. De interface kost in de winkel f 149,50 en de printerbuffer f 49,50. 


Beide bedragen zijn exclusief BTW. 


Zero parallel printer interface. 





COMMODORE DOSSIER 


OP PC RAI 


Van 20 tot en met 24 maart 
wordt in de Amsterdamse RAI 
de Personal Computer RAI ge- 
houden, een beurs over Perso- 
nal Computers. Volgens de or- 
ganisatoren viel er een gat tus- 
sen de Firato, waar vooral aan- 
dacht wordt besteed aan huis- 
computers, en de Efficiency 
beurs, waar microcomputers de 
hoofdmoot vormen. Maar huis- 
computers worden steeds vaker 
gebruikt voor zakelijke toepas- 
singen terwijl zakelijke compu- 
ters steeds meer functies krijgen 
die ook voor particulieren inte- 
ressant kunnen zijn. Vandaar 
dat men mogelijkheden ziet 
voor een beurs voor de consu- 
ment met als ruime specialisatie 
de Personal Computer. 
Overigens zal Commodore Dos- 
sier op de PC RAI prominent 
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aanwezig zijn met een eigen 
stand. Het juiste standnummer 
was bij het ter perse gaan van 
dit nummer nog niet bekend, 
maar u weet ons vast wel te vin- 
den. In elk geval is namelijk ze- 
ker dat we ons in dezelfde hal 
zullen bevinden als Commodore 
Nederland. Onze stand zal 
steeds bemand zijn met een aan- 
tal deskundigen die vragen kun- 
nen beantwoorden, maar lezers 
die alleen maar een praatje wil- 
len maken, zijn natuurlijk ook 
welkom. 

De tentoonstelling is dagelijks 
van 10 tot 17 uur geopend en 
op 20 en 21 maart van 10 tot 21 
uur. Normale toegangsprijs is 
10 gulden, kortingen zijn moge- 
lijk voor jeugdigen onder de 

12 en houders van een 65+ 

pas. 





TIPS EN TRUCS 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. Hearne a viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


guiden. 
NOTA BENE 


Alle programma’s op deze en de volgende pagina’s zijn voorzien 
van onze checksum. Die is te herkennen aan het voorvoegsel 
(shift)/(spatie). Deze twee woorden moet u dus niet intikken, maar u 
dient tegelijkertijd de shift-toets en de spatiebalk in te drukken. 

Op het scherm ziet dat er uit als een gewone spatie. Daarna voert 
u het feitelijke controle-getal in. Het checksum-programma, dat er 
voor zorgt dat uw computer ook iets begrijpt van het ingevoerde 
controle-getal, vindt u in Commodore Dossier 1. 


DISK-BOOT 
Een machinetaal utility voor de 
CBM-64 door Marcel van 
Valen. 

TIedereen die een tijdje met de 
1541 diskdrive gewerkt heeft, 
kent het probleem: u wilt een 
programma laden maar bent 
vergeten of het ’’sprite maker 
64’’ of ’’spritemaker-64’’ heette. 
Of was het nou toch... U laadt 
dus maar de directory in 
(LOAD ’’$’’,8) en LIST deze 


vervolgens. Maar op de schijf 
staan zoveel programma’s dat 
de gewenste naam al van het 
scherm is verdwenen voordat u 
de stop-toets heeft kunnen in- 
drukken. Opnieuw listen maar 
weer. Nu heeft u eindelijk het 
gezochte programma gevonden. 
U zet de cursor op de juiste 
plaats, tikt LOAD voor de pro- 
grammanaam en ,8 er achter. 
Nu geeft u een return en wacht 


2049 to 2707<shift>/<spatie>dab6 
poke x,i<shift>/<spatie>26 


printchr$(147);<shift>/<spatie>da 
print"poke 43,1:poke44,8:poke45,148:poke46,10:clr"“<shift>/<spatie>43 


DISK-BOOT 

100 for x= 

120 read i: 

130 next<shift>/<spatie>00 
140 

150 

160 


op het snorrende geluid van de 
diskdrive die uw programma in- 
laadt. Helaas, u bent de dubbe- 
le punt achter ,8 vergeten en u 
ziet ergens temidden van de 
puinhoop waarin de directory 
inmiddels is veranderd die geha- 
te woordjes SYNTAX ERROR 
staan. Nog maar eens proberen 
dus. 

Met het onderstaande program- 
ma DISK-BOOT behoort deze 
ergernis voorgoed tot het verle- 
den. Het programma dient op 
al uw diskettes te worden opge- 
nomen. Het is erg kort zodat er 
op de meeste diskettes wel 
plaats voor zal zijn. DISK- 
BOOT laadt de directory in en 
toont u vervolgens de program- 
ma’s die op de schijf staan. Al- 
leen prg-files worden getoond, 
wat de zaak bijzonder overzich- 
telijk maakt. U kunt het ge- 
toonde programma laden, ver- 
der zoeken, een andere schijf 
bekijken of nogmaals dezelfde 
directory doorlopen. Door de 
menu-structuur is DISK-BOOT 
makkelijk te bedienen en omdat 


poke631,19:poke632,13:pokel98,2:end<shift>/<spatiedaa 


het programma helemaal in ma- 
chinetaal is geschreven, werkt 
het erg snel. 

Voordat u begint met het intik- 
ken van het programma, moet u 
de volgende regel in direct mode 
intoetsen: 

POKE 43,1: POKE 44,96: 
POKE 6*4096,0: NEW 

Hiermee wordt het begin van 
Basic verhoogd. Het programma 
zou zich anders zelf overschrij- 
ven. Nadat het programma ge- 
heel correct is ingetoetst, kunt u 
het RUNnen. DISK-BOOT ver- 
plaatst zichzelf nu naar het nor- 
male begin van Basic en kan 
worden weggeschreven met de 
opdracht SAVE ’’DISK- 
BOOT’’,8. Uiteraard kunt u het 
programma ook een andere 
naam geven. Na het succesvol 
laden van het programma, kunt 
u het uitproberen. Tik: 
”*LOAD’’DISK-BOOT’’,8: 
(denk om de dubbele punt aan 
het eind!) en druk de SHIFT- 
toets en de RUN/STOP-toets 
tegelijkertijd in. Verder gaat 
dan alles vanzelf. 


32000 datai3,8,10,0,158,40,50,48,54,51,41,0,0,0,76,91,8,162,8,160,0,32,186,255<s 


hift>/<spatiedef 


32001 datal69,1,162,44,160,8,32,189,255, 169,0, 166,253, 164,254,32,213,255,96, 36<s 


hift>/<spatie>de7 


32002 datal60,0,177,251,240,11,32;210,255,230,251,208,243,230,252,208,239,96<shi 


ft>/<spatiere7 


32003 datal60,0,176,1,152,166,251,228,253,208,6,166,252,228,254,240,10,145,251<s 


hift>/<spatieof4 


32004 data230, 251,208,238, 230,252,208,234,96,169,0,141,32,208,141,33,208, 169<shi 


ft>/<spatiere7 


32005 datal47 ,32,210,2555169,14,92, 210,255,576, 235,785169, 325 162716.1597539545,202¢s 


hift>/<spatierd e3 


32006 dataZz08,250,96,169,0,133,251,133,253,169,16,133,252,169,34,133,254,24,32<s 


hift>/<spatie>f£7 


32007 data63,8,96,169,0,133,253,169,16,133,254,76,18,8,24,165,253, 105,32, 133<shi 


ft>/<spatie>de3 


32008 data253, 165, 254,105,0,133,254,160,30,177,253,201,1,240,2,56,96,160,22,177¢ 


shift>/<spatie>d4 


32009 data253,170,200,224,32,240,248,201,80, 208,219, 160,0,200,177,253,201,34¢<shi 


ft>/<spatiere? 


32010 dataz08, 249, 32,112+85 1695 19,325210,255.169,17,32,2170,255,169;.5,162,255<sni 


ft>/<spatie>f8 


32011 data32,210, 255,200, 232,177,253, 157,65,3,201,34,208,242,142,64,3,24,96,32¢s 


hift>/<spatiedea 


B2012 datal23,8,32,142,8,32,153.8.,1765815169.1 365.132,2514169,95133,252,32,45<shi 


ft>/<spatiedea 
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32013 data&,32,228,255,168,192,76,240,76, 168,192,83,240,7,168,192,13,208,238<shi 


ft>/<spatierdfs 


32014 data240,220,169,228.133.251,.169,9,133,252,32,45,8,32,228,255, 168,192,79<sh 


ift>/<spatie>rce 


32015 data208,11,169,0,133,253,169,16,133,254,76,241,8,168,192,65,208,21,169<shi 


ft>/<spatie>f4 


32016 data84,133,251,169,10,133,252,32,45,8,32,228,255,201,13,208,249,76,235<shi 


ft>/<{spatiedec 


32017 data8,168,192,82,208,206,76,248,252, 169,133,133,251,169,10,133,252,32,45<s 


hift>/<spatiedef 


32018 data8,162,0,189,65,3,32,210, 255.232, 236,64,3, 208,244, 169,141,133,251, 169<s 


hift>/Cspatiedf£f3 


32019 datal0,133,252,32,45,8,169,19,141,119,2,169,13,141,120,2,169,2,133,198<shi 


£t>/<spatierfl 


32020 data96,19,152,18,68,73,84,32,80,82,79,71,82,69,77577,65,32,76,65,68,69<shi 


ft>/<spatie>fb 


32021 data78,63,13,13,18,32,32,32,32,32,32,76,32,61,32,76,65,68,69,78,32,32,32¢s 


hift>/<spatie>deB 


32022 data32,32,13,18,32,82,69,84,85,82,78,32,61,32,90,79,69,75,69,78,32,32,32<s 


hift>/<spatiedef 


32023 data32,13,18,32,32,32,32,32,32,83,32,61,32,83,84,79,80,80,69,78,32,32,32¢s 


hift>/<spatier,e7 


32024 datai46,0,19,150,18,32,32,69,73,78,68,69,32,68,73,82,69,67,84,79,82,89<shi 


ft>/<spatie>off 


32025 datas2)32, 32.13.32 .32,.82,32,32,32,32.32,32,32532,32,32,32,32532532,325,32¢s5 


hift>/<spatiedeS 


32026 data32,13,18,32,32,79,32,61,32,79,80,78,73,69,85,87,32,32,32,32,32,32,32¢s8 


hift>/<spatie>deb 


32027 datal3,18,32,32,65,32,61,32,65,78,68,69,82,69,32,83,67,72,73,74,70,32,13<s 


hift>/<spatiedef 


32028 datal8,32,32,82,32,61,32,82,69,;83,69,84, 32,32,32,32,32,32,32,32,32,146<shi 


f£t>/<spatie>df5 


32029 data0,147,18,28,90,73,84,32,83,67,72,73,74,70;32,73,78,32,68,82,73,86,69%<s 


hift>/<spatie>de7 


32030 data63,13,13,18,32,68,82,85,75,32,82,69,84,85,82,78,32,32,32,32,32,32,32<s 


hift>/<spatie>de7 


32031 data32,146,144,0,147,144,76,79,65,68, 34,0, 34,44,56,44,49,154,0<shift>/<spa 


tie>ded 


INHOUD 


GEHEUGENPLAATSEN 


Het kan in bepaalde gevallen 
handig zijn om de inhoud van 
een aantal geheugenplaatsen in 
decimalen op het scherm te to- 
veren. Met de volgende pro- 
grammaregel, die in de direct 
mode kan worden ingetoetst, is 
dat een koud kunstje. 

FORX = [startadres, bijvoor- 
beeld 2049]TO[eindadres, bij- 
voorbeeld 


3000]: PRINTX,PEEK(X): 
WAIT653,1:NEXT 

Na het indrukken van RETURN 
krijgt u de inhoud van de eerste 
geheugenlokatie op het scherm. 
Door nu op SHIFT te drukken, 
krijgt u de inhoud van de vol- 
gende geheugenplaats. Zo kunt 
u verder gaan totdat u alle door 
u gevraagde geheugenplaatsen 
heeft ’afgewerkt’. 


FOUTMELDING 
VAN DISKDRIVE 


Wat is er aan de hand als het 
rode lampje van de diskdrive 
knippert en er niet gebeurd wat 
er zou moeten gebeuren? Het 
volgende programma geeft u 
een foutmelding op het scherm. 


10 OPENI,8,15:INPUT#1,A,BS, 
C,D:PRINTA,B$,C,D:CLOSE1 


Het eerste getal geeft het num- 
mer van de foutmelding aan. 
De twee laatste getallen geven 


respectievelijk de track en de 
sector aan waar iets is fout- 
gegaan. 


Bovenstaande routine kunt u 
uiteraard ook gebruiken in een 
programma. Door op het eerste 
getal te testen (in ons geval is 
dat een A) kunt u de foutbood- 
schappen eventueel vervangen 
door een Nederlandstalige ver- 
sie, die u dan op het scherm 
print. 


MOGELIJKHEDEN VAN DE 
CONTROL-TOETS 


Iedereen heeft van tijd tot tijd 
wel moeilijkheden met de ver- 
maledijde besturingstekens van 
Commodore. Vaak is het een 
geweldig gezoek om de juiste 
combinatie van toetsen te vin- 
den die het gewenste bestu- 
ringsteken op het scherm 
brengt. Voor sommige van de 
besturingstekens bestaan een- 
voudiger alternatieven. 
CONTROL + R doet hetzelfde 


als CONTROL + RVS ON 
CONTROL + S doet hetzelfde 
als SHIFT + HOME 
CONTROL + M is hetzelfde 
als RETURN 

CONTROL + Q geeft een 
CURSOR DOWN 

Zo zijn er nog wel meer combi- 
naties, maar ze zijn niet alle- 
maal even nuttig. Bovenstaande 
kunnen u echter misschien wat 
tijd besparen. 


WISSEN ONMOGELIJK 


Voor programmeurs is het inter- 
essant om een paar regels, bij- 
voorbeeld die met de copyright 
statements, tegen wissen te be- 
veiligen. Dat is mogelijk door 
gebruik te maken van zeer hoge 
regelnummers, die niet meer ge- 
wist kunnen worden. Die regels 
kunnen overigens ook niet zon- 
der meer worden ingevoerd, dus 
daarom is een kleine omweg 
noodzakelijk. 

Als allereerste programmaregel 
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voert u in: 


0 rem copyright [uw naam] 
1985 


Vervolgens toetst u in: 

POKE 2051,255:POKE2052,255 
Als u nu LIST, ziet u dat het 
regelnummers 0 is veranderd in 


65535 en die regel is niet meer uit 
te wissen. Tenzij natuurlijk... 








TIPS EN TRUCS 


NIEUWE KARAKTERSET 


VOOR DE C-16G 


De nieuwe C-16 beschikt over 
bijna 32K ROM-geheugen. Hier- 
van wordt 4K gebruikt om de 
lettertekens te ’tekenen’. De ge- 
gevens hiervoor bevinden zich in 
het gebied van 53248 tot en met 
57343. De inhoud van dit stuk 
geheugen bepaalt hoe de letter- 
tekens er op het scherm uitzien. 
Dat werkt als volgt. 

Een karakter bestaat uit 8 rijen, 
die elk 8 zogenaamde pixels of 
beeldpunten bevatten. Een pixel 
kan aan of uit staan, waarbij 
aan betekent dat u de betreffen- 
de pixel op het scherm kunt 
zien. Voor de letter A zien de 
acht rijen er als volgt uit. 


HEME 


ete if 


Elke rij beschikt dus over 8 
pixels. Nu kunnen we iedere 


NIEUWE KARAKTERSET C16 


O rem *xxRoelf Sluman 


punt van een rij een aparte 
waarde geven waardoor we elke 
pixel naar believen uil of in 
kunnen schakelen. Dat werk als 
volgt. 


128 64 32 168421 

* koe RK KKK SK 

We geven de meest linkse pixel 
een waarde van 128 en vervol- 
gens delen we die waarde steeds 
door 2 totdat we bij 1, de meest 
rechtse pixel uitkomen. Voor de 
letter A krijgen we dus voor de 
eerste rij pixels de volgende 
waarden. 

pixel 1 (128) is uit 

pixel 2 (64) is uit 

pixel 3 (32) is uit 

pixel 4 (16) is aan 

pixel 5 (8) is aan 

pixel 6 (4) is uit 

pixel 7 (2) is uit 

pixel 8 (1) is uit 


We zien dat er twee pixels zijn 
ingeschakeld. Deze komen over- 
een met de getallen 16 en 8, sa- 
men 24. Het getal 24 bepaalt 
dus het aantal pixels voor de 
bovenste rij van de letter A. 


1985%*x 


Voor de overige 7 rijen gaan we 
op dezelfde manier te werk. 

U kunt nu op bovenstaande ma- 
nier de waarden voor de overige 
rijen uitrekenen en deze vergelij- 
ken met de ROM-waarden voor de 
C-16. Deze ROM-waarden zijn: 
24, 36, 66, 126, 66, 66, 66, 0 
Deze waarden mocten hetzelfde 
zijn als de uitkomsten van uw 
berekeningen. 

Met behulp van bovenstaande 
informatie is het mogelijk om 
de karakterset geheel naar uw 
eigen wensen aan te passen. U 
kunt de letters veranderen in al- 
les wat u maar wilt, door een- 
voudigweg de pixels per rij aan 
en uit te zetten. 

Maar omdat de lettertekenset 
van de C-16 zich in het ROM- 
geheugen bevindt, dat per defe- 
nitie ontoegankelijk is, moeten 
we eerst zorgen dat de set in het 
RAM-geheugen terecht komt. 
Dat kan op twee manieren, 
door de huidige ROM-set naar 
RAM te verhuizen of door zelf 
een karakterset in RAM te 
maken. 

Het programma hieronder 
maakt gebruik van de tweede 
mogelijkheid. Door de listing in 


te tikken en te runnen, veran- 
dert u de karakters van de C-16 
in een zogenaamde ’custom-set’. 
Deze karakterset bevindt zich in 
RAM; hij verdwijnt dus weer 
als u de computer uitschakelt. 
Mocht u tijdens het runnen van 
het programma rare dingen zien 
gebeuren op uw scherm, dan is 
dat waarschijnlijk het gevolg 
van een error in een van de pro- 
grammaregels. U kunt dan het 
beste de RUN/STOP-toets inge- 
drukt houden en een RESET 
geven (de knop daarvoor be- 
vindt zich aan de rechterzijkant 
van de machine). U komt dan 
in de MONITOR terecht. Door 
nu X en RETURN te toetsen, 
komt u weer terug in Basic, ter- 
wijl het programma nog in de 
computer aanwezig is. Als u nu 
op HELP drukt, krijgt u de 
fout knipperend op het scherm 
te zien waarna u hem kunt ver- 
beteren. 

In een van de volgende afleve- 
ringen gaan we nog wat nader 
in op de mogelijkheden van 
custom karakters. Aarzel echter 
niet om zelf te experimenteren 
met het onderstaande pro- 
gramma. 


poke51,0:poke52,60:clr:printchr$(147)chr$(19)chr$(5)"een ogenblik a.u.b." 
color 0,6;52:color4,. 6.6 


forx=Oto5ii 


reada:pokKe15360+x,a:poke15872+x,a:b=bta:next 


ifb<>30037thenprintchr$Ci9)"fout 


poke65298,peek(65298)and251 


poke65299,60 


printchrs(147)chrs(8) 


color 0,40;2:color4d, 10;2:color. 1.8.6 
printehrs C19) chrs(13) 


print” 
print” 


NY beschikt.nu over een” 
7nieuwe’ 


Karakterset.” 


in data-regels!” 


:stop 


data 060,102,110,110,096 
data 098,060,000,000,000 
data 120,028,124,236,126 
data 000,192,096,096,124 
data 102,102,124,000,000 
data 000,060,102,096,102 
data 060,000,006,012,012 
data 124,204,204,124,000 
data 000,000,060,102,126 
data 096,060,000,000,014 
data 024,062,024,024,048 
data 000,000,000,126,204 
data 204,124,012,056,192 
data 096,096,124,102,102 
data 198,000,000,024,000 
data 024,024,090,126,000 
data 000,006,000,014,006 
data 054,102,060,192,096 
data 102,108,120,108,198 
data 000,048,024,024,024 
data 024,024,012,000,000 


ATTENTIE, ATTENTIE 


Door de onverwacht grote belangstelling zijn de programma’s Simon’s 
Basic, Assembler en Pilot/Logo uitverkocht (zie Commodore Dossier 1, 
pagina 27). Bestellen is dus helaas niet meer mogelijk. 
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000,198,238,254,214 
198,000,000,000, 252 
102,102,102,198,000 
000,000,060,102,102 
102,060.000.000.000 
124,102,102,124,096 
192,000,000,124,204 
204,124,012,006,000 
000,108,120,096,096 
192,000,000,000,060 
112,.060,014.060,000 
048,024,126,024,024 
024,024,012,000,000 
193,702)/102,102,062 
000,000,000,198,108 
108,056,016,000,000 
000,130,214,124,124 
108,000,000,000, 102 
126,024,126,102,000 
000,000,198,102,102 
062,012,056,000,000 
126,108,024,054,126 
060,060,048,048,048 
048,048,060,000,000 
000,126,108,024,054 
126,000,060,012,012 
012,012,012,060,000 
000,024,060,126,024 
024,024,024,000,016 
048,127,127,048,016 
000,000,000,000,000 
000,000,000,000,255 
060,024,024,000,024 
024,000,102,102,102 
000,000,000,000, 000 
£02, LOZ, 255.102 ,:255 
102,102,000,024,062 
096,060,006,124,024 
000,098,102,012,024 
048,102,070,000,060 
102,060,056,103,102 
063,000,006,012,024 
000,000,000,000,000 
012,024,048,048,048 
024,012,000,048,024 
012,012,012,024,048 
000,000, 102,060, 255 
060,102,000,000,000 
024,024,126,024,024 
000,000,000,000,000 
000,000,024,024,048 
000,000,000,126,000 
000,000,000,000,000 
000,000,000,024,024 
000,000,003,006,012 
024,048,096,000,056 
108,108,108,108,108 
056,000,024,056, 248 
024,024,024,060,000 
120,204, 204,056,096 
204,252,000,060,102 
102,012,102,102,060 
000,012,028,124,204 
254,012,030,000,126 
096,124,006,054, 102 
060,000,060,102,192 
252,230,102,060,000 
126,198,012,024,024 
024,012,000,056, 108 
108,056,108,108,056 
000,120,204,204, 124 
012,204,120,000,000 
000,024,000,000,024 
000,000,000,000,024 
000,000,024,024,048 
014,024,048,096,048 
024,014,000,000,000 
126,000,126,000,000 
000,112,024,012,006 
012,024,112,000,060 
102,054,012,024,000 
024,000 
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TIPS EN TRUCS 


GEHEUGEN SAVEN 


Onderstaande routine maakt het 
mogelijk om een deel van het 
geheugen weg te zetten op cas- 
sette of disk. In dit geheugen 
kunnen zich bijvoorbeeld sprites 
of karaktersets bevinden, die 
dan later weer kunnen worden 
ingeladen. De routine is vooral 


FILESAVER 


handig voor degenen die geen 
monitor bij de hand hebben. Er 
wordt in het programma eerst 
om een naam gevraagd, dic ge- 
POKEd wordt in een ongebruikt 
gedeelte ($02A7 en verder). Ver- 
volgens wordt er om een device 
(tape of disk) gevraagd en om 


een begin- en eindadres. Deze 
adressen moeten decimaal en 
dus niet in hex worden inge- 
voerd. De routine maakt ge- 
bruik van drie kernal subrouti- 
nes: SETLFS, SETNAM en SA- 
VE. Deze routines kunnen va- 
nuit Basic worden aangeroepen 


O rem filesaver *xxxroelf sluman 1985*x*xx¢€shift>/<spatie>85 


10 


t>/<spatie>d7d 
100 
110 
120 
130 
140 
150 
160 
170 
180 


rem 780#a;781=x;782=y<shift>/<spatie>cd 
input"filenaam"sa$<shift>/<spatie>dca 
forx=ltolen(a$):poke678tx,asc(mids$(a$,x,1)):next<shift>/<spatiedbs 
print"tape of disk (t/d)"<shift>/<spatie>b3 
poke198,0<shift>/<spatie>89 
getqs:ifgqs<>"t"andqs$<>"d"then60<shift>/<spatie>47 
ifqs="d"thenpoke781,8:goto90<shift>/<spatiedee 

poke781,1<shift>/<spatieded 
print"startadres (decimaal)"s:inputs<shift>/<spatie>3e 
print”eindadres (decimaal)"3:inpute:ife<=sthenprint"foutieve 


save":end<shift>/<spatie>ad 


SPRITES BEWEGEN MET MACHINETAAL 


Met behulp van onderstaande 
machinecode-routine wordt het 
over het scherm bewegen van 
sprites op de CBM-64 een klei- 
nigheid. Er hoeft geen rekening 
meer te worden gehouden met 
de X-grens, dat lastige POKEn 
in register 53264, en de sprites 
zijn met zeer grote snelheid over 
het scherm te bewegen. 

De routine wordt door middel 
van DATA gePOKEd in het ge- 
heugengebied vanaf $C000 (de- 
cimaal 49152). De machinecode- 
routine wordt geactiveerd door 
een SYS naar 49152. Er wordt 
echter nog naar een paar varia- 


SPRITE MOVE 


belen gevraagd, zodat een SYS 
er als volgt uitziet: 

SYS 49152,[a],[b],[c] 

[a] bevat het spritenummer, van 
0 tot 7. 

[b] bevat het aantal punten dat 
de sprite in de x-richting moet 
worden verplaatst, van 0 tot 
127. Als u een getal van 255 tot 
128 invoert, beweegt de sprite in 
tegengestelde richting. Dus het 
getal 1 beweegt de sprite een 
punt naar rechts en het getal 
255 beweegt de sprite een punt 
naar links. 

[c] bevat het aantal punten voor 
de verplaatsing in de y-richting. 


Hiervoor gelden dezelfde voor- 
waarden als bij [b]. 

Om sprite 0 dus twee punten 
naar rechts te laten bewegen, 
geeft u het volgende 
commando: 

SYS 49152,0,2,0 

Voor het schuin naar linksboven 
laten bewegen van sprite num- 
mer 3, vier punten tegelijk, 
kunt u volstaan met: 

SYS 49152,3,252,252 

Het programma hieronder bevat 
naast de Basic-loader voor het 
machinecode-programma ook 
nog een korte demo, waarin u 
kunt zien hoe de routine ge- 


O rem xsprite move * roelf sluman 1985x<shift>/<spatiere2 


5 rem machinecode 
10 fori= 
20 reada: 
100 data 
105 data 
110 data 
115 data 
120 data 
125 data 
130 data 
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initialiseren<shift>/<spatie>9a 
49152 to 49356<shift>/<spatie>rd2 
pokei,a:next<shift>/<spatier,e3 

076,178,192,001,00l<shift>/<spatie>rd2 
000,000,001,032,142<shift>/<spatie>dd 
003,192,140,004,192<shift>/<spatie>rdf 
170,010,168,142,005<shift>/<spatiedca 
192,169,001,141,007<shift>/<spatie>cd 
192,173,016, 208, l4l<shift>/<spatierc8 
006,192,224,000,240<shift>/<spatie>3f 


als de inhoud van de drie be- 
langrijkste 6500-registers (A, X 
en Y) in geheugenplaatsen 780, 
781 en 782 worden gePOKEd. 
Zo kunt u dus ook vanuit Basic 
gebruik maken van de kernal. 


invoer":run<¢«shif 


poke780,0:poke782Z,255:sys65466:remsetlfs<shift>/<spatie>63 
poke780,len(a$):poke781,167:poke782, 2:sys65469<shift>/<spatie>do 
a=s:gosub180:poke251,al:poke252,a2<shift>/<spatie>56 
a=e:gosub180:poke781,ail:poke782,a2<shift>/<spatie>rba 
poke780,251<shift>/<spatie>3e 
sys65496<shift>/<spatie>30 
ifst=Othenprint”"geen errors” :end<shift>/<spatie>08 
print“error opgetreden bij 
a2=int(a/256):al=a-aZ2x256:return<shift>/<spatier54 


bruikt wordt. Met behulp van 
de FILESAVER die elders in 
deze rubriek staat afgedruk, 
kunt u de SPRITE MOVE rou- 
tine saven. Het tijdrovende PO- 
KEn van DATA bDlijft u dan 
bespaard. 

Voor het saven van SPRITE 
MOVE dient u het volgende te 
weten: 


beginadres = 49152 


eindadres = 49357 

We hopen dat u deze nuttige 
routine met veel plezier in uw 
eigen programma’s kunt ge- 
bruiken. 








135 data 009,078,006,192,014<shift>/<spatie>3b 
140 data 007,192,202,208,247{shift>/<spatie>39 
145 data 169,001,045,006, 192<shift>/<spatier>2o 
150 data 141,006,192,174,005<shift>/<spatied2a 
155 data 192,173,003,192,016<shift>/<spatied29 
160 data 030,173,003,192,032<shift>/<spatiedld 
165 data 156,192,141,003,192<shift>/<spatier13 
170 data 056,185,000,208,237<shift>/<spatieola 
175 data 003,192,153,000,208<shift>/<spatier18 
180 data 173,006,192,233,000<shift>/<spatie>0c 
185 data 141,006,192,076,109<shift>/<spatie>Ob 
190 data 192,024,185,000, 208<shift>/<spaties07 
195 data 109,003,192,153,000<shift>/<spatie>76 
Z200 data 208,173,006,192,105<shift>/<spatie>d7c 
205 data 000,141,006,192,224<shift>/<spatied72 
210 data 000,240,006,014,006<shift>/<spatie>62 
215 data 192,202,208,250,173<shift>/<spatie>&6 
220 data 006,192,240,009,013<shift>/<spatie>dtbe 
225 data 016,208,141,016,208<shift>/<spatie>56 
230 data 076,144,192,169,255<shift>/<spatie>53 
235 data 077,007,192,045,016<shift>/<spatie>53 
240 data 208,141,016,208, 200<shift>/<spatie>42 
245 data 024,173,004,192,121<shift>/<spatie>49 
250 data 000,208, 153,000, 208<shift>/<spatie>de 
255 data 096,024,073,255,105<shift>/<spatie>47 
260 data 001,096,032,138,173<shift>/<spatie>be 
265 data 032,247,183,165,021<shift>/<spatie>bo 
270 data 208,003,165,020,096<shift>/<spatiedba 
275 data 076,072,178,032,253<shift>/<spatie>rae 
280 data 174,032,162,192,072<shift>/<spatiera3 
285 data 032,253,174,032, 162<shift>/<spatierac 
290 data 192,072,032,253,174<shift>/<spatie>d98 
295 data 032,162,192,168,104<shift>/<spatied9li 
300 data 170,104,076,009,192<shift>/<spatie>d9f 
310 :<shift>/<spatie>Od 

320 :<shift>/<spatie>7b 

330 :<shift>/<spatie>71 

1000 rem *xxxdemonstratie-programmaxxx<shift>/<spatie>10 
1010 forx=O0to63:poke832+x,255:next<shift>/<spatie>rch 
1020 poke53248,50:poke53249,50: poke53264, 0: poke53269, 1: poke53287,1:poke2040,13<s 
hift>/<spatie>c6é 

1030 :<shift>/<spatie>38 

1040 :<shift>/<spatie>ze 

1050 rem xxxhier volgt de demoxxx<shift>/<spatierc3 
1060 forx=1to250<shift>/<spatierde9 

1070 sys49152,0,1,0<shift>/<spatied9z 

1080 nextx<shift>/<spatie>debé 

1090 forx=1to75<shift>/<spatierba 

1100 sys49152,0,0,2<shift>/<spatie>f3 

1110 nextx<shift>/<spatie>dss 

1120 forx=1to01l25<shift>/<spatie>ac 

1130 sys49152,0,254,0<shift>/<spatie>d4 

1140 nextx<shift>/<spatiedaa 

1150 forx=1to75<shift>/<spatie>&86 

1160 sys49152,0,0,254<shift>/<spatie>36 

1170 nextx<shift>/<spatie>r4c 

1180 forx=i1tol0O<shift>/<spatie>d57 

1190 sys49152,0,2,2<shift>/<spatie>dlb 

1200 nextx<shift>/<spatie>r6e 

1210 forx=i1tol00<shift>/<spatie>d71 

1220 sys49152,0,254, 254<shift>/<spatie>?73 

1230 nextx<shift>/<spatie>10 

1240 gotol060<shift>/<spatie>52 


RAADSELACHTIGE ERROR? 


De meeste Commodore- ten op, zelfs zonder dat er een op de ready-regel staat. De geheugen zitten, geeft de com- 
gebruikers zijn tijdens het pro- | programma wordt gerund. De computer leest de ready- puter dus een OUT OF DATA 
grammeren wel eens de vreemde _ verklaring ervoor is eigenlijk erg boodschap dan namelijk als ERROR’. 


OUT OF DATA ERROR’ te- simpel. De error treedt namelijk READ Y, oftewel: zoek een 
gengekomen. Deze error duikt altijd op als er op RETURN DATA en berg die op in Y. Als 
soms op de vreemdste momen- _—_—- wordt gedrukt terwijl de cursor er geen DATA-statements in het 
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TIPS EN TRUCS 


HET GEMAK DIENT DE GEBRUIKER 


Het zijn de kleine dingen die het hem doen, volgens Peter Gerrard. 
Hij stelt voor om eerst de kleine programmeerproblemen voor de 
Commodore 64 te lijf te gaan voordat de echt grote problemen aan 


de orde komen. 


Een van de grootste problemen 
voor elke Commodore 64-bezit- 
ter is het ontbreken van Basic- 
opdrachten die hem in staat 
stellen het beeldend vermogen 
en de geluidskracht van de 
Commodore optimaal te gebrui- 
ken. Dit is een bekende makke 
van de machine en daar is dan 
ook in het verleden al de nodige 
kritiek op geweest. 

Er zijn echter kleinere proble- 
men die met wat handigheid wel 
snel uit de weg te ruimen zijn. 
Een paar van die kleinere pro- 
blemen komen in dit artikel aan 
de orde. 


INPUT 

Een bekend probleem in het 
Commodore-Basic is de INPUT- 
opdracht. Het gaat als volgt: 

10 INPUTAS, of 

10 INPUT ” UW NAAM 
AUB”’;A$, 

In slecht geschreven program- 
ma’s kan zo’n regel problemen 
veroorzaken. Als de gebruiker 
per ongeluk of met opzet slechts 
de Return-toets indrukt en dus 
niet zijn naam of iets anders in- 
vult, dan staat er een zoge- 


naamde null-string in A$ en dat 
kan later in de loop van het 
programma de nodige ellende 
opleveren. Daar kun je natuur- 
lijk wel wat aan doen. Je kunt 
aan regel 10 de volgende regel 
toevoegen: 

20 IF A$ ="? THEN’ TYPE 
IETS IN!’’?:GOTO 10. 

Dat is natuurlijk geen al te 
fraaie oplossing en het wekt be- 
paald geen vertrouwen bij de 
toekomstige gebruiker. Je kunt 
bijvoorbeeld SHIFT en 
RUN/STOP intikken en op die 
manier toch nog uit het pro- 
gramma stappen. Een andere 
manier om een en ander te rege- 
len is de volgende: 

10 INPUT ’’NAAM 
AUB*CHRS$(157);CHR§$(157); 
CHR$(157)’’;A$. 

In plaats van de cursor ver- 
schijnt hierbij een knipperende 
ster. Dat kan men dan laten 
volgen door een regel als: 

20 IFA$=’’*”” THEN”’CHR$ 
(145); CHR$(145)”:GOTO 10 
dan wordt door het aanslaan 
van alleen de RETURN- 

toets ook een ster in A$ 

gezet. 


FIG 1 INPUT SUBROUTINE 


Zelfs dit is nog gevaarlijk, want 
de gebruiker kan nu nog met 
zijn cursor over het hele scherm 
gaan en de zaak grondig in de 
war sturen. 

Een mogelijke oplossing is het 
gebruik van een routine als in 
afbeelding 1. Die lopen we 
straks regel voor regel door, 
maar hier is eerst een korte ver- 
klaring van wat het program- 
maatje allemaal kan. 


Met deze routine kan de gebrui- 
ker slechts tekens met een Ascii- 
waarde (of misschien kunnen we 
beter spreken van Comscii- 
waarden) beneden de 96 invoe- 
ren. Dat betekent dat de cursor- 
toetsen de zaak niet in de war 
kunnen sturen. De shift-toets 
kan niet samen met een ander 
teken worden gebruikt. En als 
we het later nog eens doorlopen 
dan blijft het programma han- 
gen op een regel met een null- 
string. 

Regel zes maakt het onmogelijk 
de shift en de Commodore toets 
in combinatie met een ander te- 
ken te gebruiken. Met CHR$(9) 
maak je het gebruik weer moge- 
lik. De NOW WHAT-prompt 
wordt geprint door regel 10. 
Het laatste deel van de regel 
stuurt de subroutine naar het 
besturingsdeel van het program- 


printchr(8)chrs(147) chrsC158)<shift>/<spatiedfl 


rem commodore en shift toets uitschakelen<shift>/<spatieddd 


poke53280,0:poke53281,0:poke53272,23<shift>/<spatie>d82 


rem beeld- en randkleur zwart, 
“3; ;:gosub60000<shift>/<spatie>70 
ifom$="Klaar"thenprintchr$(147)"einde":end<shift>/<spatie>d79 


10 print"“wat nu 
12 


15 printcem$:gotolO<shift>/<spatier0e 


60000 
60002 
60004 
60014 
60015 
60016 
60017 
60018 
60020 
60022 
60024 
t>/<spatie?37 


rem x* 


input subroutine 


ifz=13andzlthenprint” 


60026 goto60015<shift>/<spatie>2b 
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LOM KKKKKKKKKKKKKKKKKKKKKKKKKKKAK SHIift>/<spatierd2f 
x€shift>/<spatie>4b 
LOM KKKKKKKKKKK KK KK KK AKKKKEKKAKKKKEKECSHLLtO/<spatierZb 
cm$=""srem string leegmaken<shift>/<spatie>fb 
printchr$(18)chrs$(32)chr$(146)chr$C157);3<shift>/<spatie>2f 
getzs:ifzs=""then60016<shift>/<spatiedae 
z=asc(z$):ifz>95then60016<shift>/<spatie>d0a 
zl=lenCcm$):ifzl>20then60022<shift>/<spatie>d5l 
ifz>3ithencm$=cm$+z$:iprintz$3:gotoG00i5<shift>/<spatie>Sa 
"sreturn<shift>/<spatiedee 
ifz=20andzlthencm$=left$(cm$,zl-1):printz$3;:rem een teken verwijderen<shif 





maatjc. Regel 12 is een optie, 
regel 15 print uit wat was inge- 
tikt om dat te laten zien en gaat 
terug om iets anders in te kun- 
nen voeren. Onze commentaar$ 
CMS$ is in regel 60014 gelijk aan 
nul gesteld. Vergeet in regel 
60015 niet de : want die is heel 
belangrijk. Regel 60016 is een 
rechttoe-rechtaan GET-lus die 
wacht tot er een toets is inge- 
drukt. De Ascii-waarde van die 
toets wordt gecheckt in regel 
60017. Als de waarde groter is 
dan 95 willen we hem niet ken- 
nen en gaat het programmaatje 
weer naar regel 60016. Wilt u 
alleen cijfers invoeren dan is dit 
programmaatje op deze regel 
aan te passen. Regel 60018 
checkt de lengte van de string 
en als die groter is dan 20 dan 
gaat het door naar regel 60022. 
Ook deze grens kan variabel 
worden ingesteld. Als de Ascii- 
waarde groter is dan 31 voegt 
regel 60020 de tekens toe aan 
onze INPUT-string CM$ en 
print de tekens op het scherm 
voor hij teruggaat naar regel 
60016 om meer te vragen. Als 
de Ascii-waarde 13 is doordat 
slechts op de return-toets is ge- 
drukt, constateert die regel dat 
de lengte van de string ZL gro- 
ter is dan ZL, is dat het geval 
dan wordt er een spatie ge- 


grote en Kleine letters<shift>/<spatie>ddd 





print en hij gaat uit de subrouti- 
ne. Dit is een algemeen routi- 
netje dat makkelijk aan de ver- 
schillende eisen aangepast kan 
worden. U kunt ook de functie 
van de stoptoets weghalen en 
dat is de enige manier om deze 
routine te onderbreken. Dat 
gaat door POKE 808,239 alles 
wordt weer gewoon na 


POKE808,237, 


Een waarschuwing: doe dit niet 
voor u er zeker van bent dat het 
programmaatije feilloos loopt. 
Er is niets vervelender dan tien- 
tallen wijzigingen te maken aan 
een programma en dan te mer- 
ken dat je de routine niet kunt 
opslaan doordat je niet in het 
hangvrije programmaatje kunt 
komen. 


BURGER- 
PROBLEMEN 
Een bekende fout in program- 
ma’s is de volgende: 

10 PRINT ’”’NOG EEN 
SPEL?(J OF N) 


FIG 2 MENU SELECTIE 


20 GET A$:IF AS =” THEN 
20 

30 IF A$=" J” THEN 
1000:REM NOG EEN KEER 
40 SYS64738:REM RESET DE 
MACHINE 


De programmeur heeft aangeno- 
men dat de gebuiker door het 
feit dat hij geen J intikt niet 
verder wil gaan met het spel. 
Maar het is maar al te gemak- 
kelijk om de verkeerde toets in 
te drukken en dat heeft dan ver- 
velende gevolgen. Dat wordt 
voorkomen door de regels: 

40 IF A$ = ”’N’” THEN 
PRINT ”’DAG’’: END 

50 GOTO 20 

Een andere fout die wel eens 
wordt gemaakt, is dat in pro- 
gramma’s met zogenaamde 
hires-beelden de shift- en de 
Commodore-toets niet buiten 
werking worden gesteld. Dat 
leidt vaak tot onbedoeld komi- 
sche plaatjes. Rechttoe rechtaan 
PRINT CHR$(8) in het pro- 
gramma voorkomt deze ellende 


en met CHR§(9) is de toestand 
weer normaal. 

Het is vaak mogelijk een getal 
in te voeren als de machine 
tekst wil en omgekeerde. Listing 
twee zorgt voor cen menu cn 
daarmec is ook dit problecm 
opgelost. Het is een algemeen 
programmaatyje en kan aan biy- 
na alle persoonlijke behoeften 
worden aangepast. Het doet in 
principe niets tot er een speciale 
toets wordt ingedrukt. Als dat 
gebeurt zorgt hij dat het betref- 
fende deel van het programma 
wordt uitgevoerd voor hij weer 
in wordt geschakeld. 

De kleine probleempjes uit de 
wereld helpen voor je de grote 
problemen te lijf gaat, maakt 
niet alleen het schrijven van 
programma’s makkelijker, maar 
het zorgt ook dat de program- 
ma’s er gedegen en professio- 
neel uitzien. De listings zoals ze 
hier staan zijn specifiek voor de 
Commodore 64, maar ze kun- 
nen gemakkelijk voor andere 
machines worden aangepast. 


6 printchr$(8)chr$(147)chrs(158)<shift>/<spatierét 


7 rem commodore en shift toets uitschakelen<shift>/<spatie>rdd 
8 poke53280,0:poke53281,0:poke53272,23<shift>/<spatie>s82 


9 rem beeld- en randKleur zwart, grote en Kleine letters<shift>/<spatie>dd 
rem start van het menu<shift>/<spatie>ddeé 

71’? "€shift>/<spatierdbs 
72’ "<shift>/<spatie>rdc 
°3°"“<shift>/<spatie>rf2 
°4’"€shift>/<spatiedfd 
*O’ "<shift>/<spatiere9 
°6’"€shift>/<spatiedef 
<shift>/<spatie>of6e 
78’ "<shift>/<spatieds8Ff 


10 
20 een 
twee 
drie 
vier 
Vij st 
zZes 


print"“optie 
print“optie 
print” oeptie 
print“optie 
print” optie 
print"“optie 
print"“optie zeven 
print“optie acht 
100 print“beeindigen 
120 
130 
£35 
140 
1995 
1996 
1997 


rem x 


menu-selectie 


:druk 
:aruk 
:adruk 
:adruk 
:druk 
:druk 
:druk 
:druk 


op 
op 
op 
op 
op 
op 
op 
op 


Poti 


:druk op ’b’"<shift>/<spatie>b6 


print:print:print”maak een Keuze uit het menu”"<shift>/<spatieodct 
gosub2000<shift>/<spatie>Od 
forx=1tol000:next<shift>/<spatie>dcd 
goto6<shift>/<spatie>33 

LEM KXKKKKKKKKKKAKAKKKAKKKKAKKKKKKKACSHIft? /<spatier43 
x<€shift>/<spatie>d7e 
TET I kkk kkk Cshift>/<spatie>45 


2000 
2001 
Z200Z 
e>31 
2004 
2006 
3000 
4000 
5000 
6000 
7000 


fori=ltolO:getaS:next:rem toetsenbuffer leegmaken<shift>/<spatieddf 
geta$:ifas=""then200l:rem wacht op toets<shift>/<spatie>ta 
ifas="b"thenprintchr$(147)"tot ziens":end:rem einde programmatshift>/<spati 


z=asc(a$):ifz<49orz>56then2000<shift>/<spatied3l 

onz-48goto3000, 4000, 5000,6000,7000,8000,9000, 10000<shift>/<spatie>2b 
print"optie een geKozen”:return<shift>/<spatie>cOd 

print"optie twee geKkozen”:return<shift>/<spatie>9l 

print”optie drie gekozen":return<shift>/<spatie>bc 

print"optie vier gekozen":return<shift>/<spatie>S2 

print"optie vijf gekozen":return<shift>/<spatie>6a 

8000 print“optie zes gekozen":returntshift>/<spatie>dZe 

9000 print*optie zeven gekKozen":returntshift>/<spatie>74 

10000 print“optie acht geKozen"“:return<shift>/<spatie>l4 
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Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De ioiranins bij voorkeur inzenden op schijf of cas- | 
sette, zodat we zeker weten dat ze ‘open’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
hesturingstekens zijn voorzien. De beste Reims uit deze rubriek kunnen in aenmessing komen om door COMMODORE DOS 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


ADRESSENBESTAND 
Een bijdrage van M. Iedema uit ma werkt op zich erg leuk. De NOTA BENE 


Dokkum die door onze listing- | adresgegevens worden in de 

redacteur echter danig is bijge- DATA-regels vanaf regel 10000 Alle programma’s op deze en de volgende pagina’s zijn voor- 

werkt. Vooral de presentatie op in het programma bewaard, ter- zien van onze checksum. Die is te herkennen aan het voor- 

scherm en printer hadden enige = wij! het aantal in regel 170 voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 

verfraaiing nodig. Het program- wordt bijgehouden. intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het checksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u in Commodore Dossier 1. 


rem in regel 170 begin nr voor data’s<shift>/<spatie>d6 
:Cshift>/<spatie>d2e 
poke53281,0:poke53280,0:printchr$(147)chrs(17)<shift>/<spatie>b2 
printchrs(8)chr$(142)tab(12) "adressen bestand"<shift>/<spatie>45 
printtab€ 12 chr$€28)"XXXKKKKKKKKKKKKK" Cshift>/<spatiedee 
printtab(t2)chrs(17)chrs¢(159)" compax 64"<shift>/<spatie>3d 
printtab(12)chrs¢(17)" tel: 

05190-3279"chrs( 17 chr$(i7 chr$(17)<shift>/<spatie>2e 

80 fort=1tol000:next<shift>/<spatie>rib 

9O printtabClOvenrs (3 i yehrs 1s)" “chr$(146)" PChRS LBS 

“chr$(146)3<shift>/<spatie>97 

95 printtab(10)” Wehrec18)~ “chrs$(146)<shift>/<spatie>57 

100 printtab(9 chrs(31 chr$C18)" "“chrs(146)" rehnrs CLS) 

“chr$(146)3<shift>/<spatierbl 

105 printtab@9)" “chrs¢€18)" “cehrs( 146)” "“3<shift>/<spatie>42 

107 printchr$(18)" “chr$ 146)" “chr$(i8)" “chrs(146)<shift>/<spatie>d2 

110 printtab(8)chrs(31)chr$(18)" "“chrs(146)" “chrs(18)" "3<shift>/<spatie 

>4£ 

112 printchrs(146)" "chr8(18)3<shift>/<spatie>c8 

115 printtab(8)" “chr$¢146)" "“chr$€18)" “chr$€146)" “chrs$(18)" 

"chr$(146)<shift>/<spatie>8d 

120 printtab(8)chrs(31 chr$(18)" “chr$¢146)" 

"chr$(18)3<shift>/<spatie>59 

125 printtab¢3)" “chrs$(€146>" “chrs€18>" “chrs¢€146>" “enres Cre)” 

"“chr$(146)<shift>/<spatie>a3 

130 printtab(8)chrsC31l)dchr$(18)" “chr$(146)s<shift>/<spatied4c 

L232 pe int “chrs (28) chrs(18)" “chr$(146)3<shift>/<spatie>fO 

135 printtab(3)" “chr$(31)chr$(18)" “chr$(146)" “chrs(18)" 

“3 <shift>/<spatie>rae 

137 printchrs(146)" "“chrs(18)" "chr$(146)<shift>/<spatiedff 

140 printtab(9)chrs(3ldchrsC18)" “chrs¢146>" “;<shift>?/<spatie>o3 

142 printchr$(28)chr$(18)" “"chr$(146)3<shift>/<spatiedda 

145 printtab(9)" “chr$C31ldchr$(18)" “chrs¢146)" "ehrs'C13)™ 

"3<shift>/<spatied91 

146 printchr$(146)" “chr$(18)" “chrs(146)<shift>/<spatie>c4 

150 printtab(lOdJchrs(31)chrs 18)" “chr$ C146)" 

"“chr$(18)3<shift>/<spatie>dge 

155 printtab(10)”" "“chr$(146>" “chr$(18)" "“chrs(146)<shift>/<spatie>46 

160 fort=1to3000:next<shift>/<spatierde9 

170 rm= 100Z20<shift>/<spatier34 

180 printchr$(147)chr$(28)chr$(18)" adressen bestand";<shift>/<spatie>b3 

185 print” door ’compax 64’ “<shift>/<spatieric 

190 printtab(8)<shift>/<spatied95 

200 forx=Otol7:printtab(8)"“"“tab(31)" “:next<shift>/<spatie>30 

210 printtab(8)" “chr$(19)chr$(17)chr$(17)<shift>/<spatied17 

220 print”“reeds ingevoerd: “(rm-10000)/10<shift>/<spatie>7ada 

230 printtab(10)chr$(17)" 1. invoeren"<shift>/<spatie>29 

240 printtab( 10 chr$(17)" 2. corrigeren"<shift>/<spatie>20 
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250 printtab(10chr$(17)" 3. overzicht"<shift>/<spatie>77 

260 printtab(i0)chr$(17)" 4. zoeKen"<shift>/<spatierdd 

270 printtab(10)chrs(17)" 5. saven bestand”<shift>/<spatie>e2 

280 printtab(10)chrs¢(1i7)" 6. printen"<shift>/<spatie>89 

290 printtab(10)chr$(17)" 7. stoppen"<shift>/<spatierab 

300 printtab(1i5)chr$(i7)chr$ (17) chr$€18)"uw kKeuze?"chr$(146)<shift>/<spatie>59 
310 poke198,0:wait198, l:getas<shift>/<spatie>f7 

320 ifas="1"°andabs(fre(0))>250thend00<shift>/<spatierdas 

330 ifag="2"then 760<shift>/<spatierb3 

340 ifaS="3"then S560<shift>/<spatie>rdae 

350 ifas="4"then 950<shift>/<spatie>rac 

360 ifas="5"then 680<shift>/<spatie>99 

370 ifas="6"then 1270<shift?/<spatierba 

380 ifas="7"“thenprintchr$(147)chr$(28)"een *compax 64’ 
produktie"<shift>/<spatie>3b 

381 printchr$(29)chr$(29)chr$C(17)" dokkum (c) 1984":print:end<shift>/<spatie>49 
390 goto310<shift>/<spatie>3c 

400 printchr$(147)chr$(31l)chr$(18)"invoeren"chrs(146)chrs(17dchrs$(28) :nas=" 
"“€shift>/<spatie>ds8f 

410 input"naam 


"znaSinaS=nast".... 2c eee ee ee eee “:nas=left$(na$, 16)<shift>/<spatie>65 

420 input”adres 

“3CnS :enS=cn$+"...240%255 woeee. "2 on$=left$(cn$,16)<shift>/<spatie>3b 

430 input"p.codetw.pls. 

"StLSStUSS=TSSH” 2c cee eee estes ":tss=lefts(tss$, 16><shift>/<spatie>d3a 

440 input"“telefoon nr.. 

"SOpS :OpS=OPS 4" 5 s6 sews e ee “sopS=left$Cop$,16)<shift>/<spatie 58 

450 printchr$(31)chr$(172chr$(17)chr$(18)"return als invoer ok."“<¢shift>/<spatie 
>06 


460 printchr$(18)"voor correctie druk op <shift>/<spatie>84 

470 geta$<shift>/<spatie>r13 

480 ifas=chr$(13)then 510<shift>/<spatiedea 

490 ifa$="then 400<shift>/<spatie>7a 

500 goto470<shift>/<spatieddf 

510 printchr$(144)chr$(147)chr$(17)chrs$C 17 chrs(17)3<shift>/<spatie>Je 
515 print"170rm="rmt+1lO<shift>/<spatie>38 

520 printrm"data"nas”,"cn$","ts$","op$<shift>/<spatieraa 

530 printrmt10"datakx,*«,*,*"Cshift>/<spatie>oOl 

540 print"runi70"chr$(19)<shift>/<spatie>36 

550 pokel98,4:forx=O0to3:poke631l+x,13:next:end<shift>/<spatie>d2a 
560 printchr$(147)chr$(18)"overzicht”<shift>/<spatie>d2 

570 printchr$(17)"druk op spatie voor vervolg"chr$(17)<shift>/<spatie>fb 
575 print"terug naar menu met x"“chr$(17)<shift>/<spatied4c 

580 printchr$(30)chr$(18)"naam/adres/w.pls./tel.nr. 
"<shift>/<spatiercl 

590 readna$,cn$,ts$,ops<shift>/<spatie>fd 

600 ifna$s="x"then650<shift>/<spatie>f6 

610 printnas” “cn$" “ts$" “op$<shift>/<spatie>rc3 

620 geta$:ifas="x*"thenl70<shift>/<spatie>77 

630 ifa$<>" “then620<shift>/<spatie>2b 

640 goto590<shift>/<spatie>37 

650 printchr$(31l)chr$(18)"einde overzicht,“s<shift>/<spatie>d2c 

651 print"druk op return voor menu"chrs(19)<shift>/<spatiedrd4 

653 getas:ifas<>chr$(13)then653<shift>/<spatie>dce 

670 runi7O0<shift>/<spatie>20 

680 printchr$(147)chrs(18)"saven bestand"<shift>/<spatie>dac 

690 print"spoel bandje terug!"<shift>/<spatiedla 

700 printchr$(17)"druk op return als Klaar"“chrsC1i7)<shift>/<spatie>3l 
710 geta$S:ifa$<>chr$(13)then710<shift>/<spatie>83 

720 input“naam bestand"s;a$:printchrs(5)<shift>/<spatie>31l 

730 saveas<shift>/<spatie>29 

740 runtshift>/<spatie>dbéc 

760 printchr$(147)chr$(18)"corrigeren"<shift>/<spatie>46 

770 printchr$(30)chr$(17)"welke naam “chr$Ci7)<shift>/<spatie>Ze 
780 inputg$:i=9990<shift>/<spatie>r2l 

790 readna$,cn$,ts$,op$:i=it+1l0<shift>/<spatie>d87 

800 ifnas="x"thenprint:goto650<shift>/<spatie>rad 

810 ifgs=left$(na$,len(g$))then830<shift>/<spatie>80 

820 goto790<shift>/<spatie>80o0 

830 printchr$(147)chr$(18)"oude naam? adres. w.pls. tel. nr. 
“€shift>/<spatie>8e 

831 printnas” “cn$" “ts$" “opS<shift>/<spatiergf 


840 print" “chr$(18)"nieuwe naam?":print" “nas<shift>/<spatie>8c 
845 printchrs(145);:inputna$:nas=left$(nas,16)<shift>/<spatieded 
850 print" “chr$(18)"adres “:print” “ensS<shift>/<spatierdec 
855 printchrs(145)3;:inputcns:cns=lefts$(cns,16)<shift>/<spatie>dfc 
860 print" “chr$C18)"p.codetw.pls."“:print" “ts$<shift>/<spatie>c9 
865 printchr$(145)3:inputts$:tss=lefts(tss,16)<shift>/<spatiercO 
870 print” “chr$C18>"tel. nr. “;print” “opsS<shift?>/<spatierca 
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875 printchr$(145)3:inputopS:opS=lefts Cops, 16)<shift>/<spatiedd2 

880 printchrs(17)chrs(3l) chr$(18)"druk op return als ok”"<shift>/<spatie>66 

890 printchrs(18)"corrigeren druk x “chr$(146chr$(28)<shift>/<spatie>dZa 

900 getas$:ifas="x"then830<shift>/<spatie>?33 

910 ifas<dchr$C13)then9O0<shift>/<spatie>3b 

920 printchrs(158)chrs(147)chrs( 17) chrSC 17) chr$C17)35<shift>/<spatie>df7 

925 printi”“data”"na$","cn$","ts$","ops$<shift>/<spatie>6s 

930 print"runt70"chrs(19)<shift>/<spatie>89 

940 pokei98,3:forx=Oto2:poke631l+x,13:next:end<shift>/<spatieda7 

950 remtshift>/<spatie>3a 

960 printchrs(147)chrs(18)"zoeken”<shift>/<spatie>71 

970 printchrs(30)chrs(17)"op 

"chr$(18)"n"chr$(146)"aam, “chr$(18)"a"chrs(146)"dres"s<shift>/<spatie>3f 

975 print” of “chrs(18>"t"chrs$(146)"el.nummer"<shift>/<spatie>19 

980 getaS:ifaS="n"thenl100<shift>/<spatie>9c 

990 ifaS="a"thenl190<shift>/<spatie>d6e 

1000 ifas<>"t"then980<shift>/<spatie>dcdS 

1010 print:input“tel nr. “sg$<shift>/<spatie>cO 

1020 printchrs( 147 chrs( 18 chr$(28)"tel.nr./adres/w.pls./naam 

"€shift>/<spatie>s85s 

1030 readna$,cn$,ts$,op$:ifnas="x"then650<shift>/<spatie>25 

1040 

foraa=Otolenlop$)-len(g$):ifgs=mid$Cop$,aat+i,len(g$)>thenlO70<shift>/<spatie>db 

1050 next<shift>/<spatie>9c 

1060 gotol1030<shift>/<spatie>dab 

1070 printops" “cn$" "“ts$" “nasS<shift>/<spatie>89 

1080 geta$:ifa$<¢>" “thenlO80<shift>/<spatie>dad 

1090 gotol030<shift>/<spatie>dcd 

1100 print: input"naam"s3g$<shift>/<spatie>35 

1110 printchrs(147)chr$(18)chr$(28)"“naam/adres/w.pls./tel.nr. 

"€shift>/<spatie>28 

1120 readna$,cn$,ts$,op$:ifnas="x"then650<shift>/<spatie>43 

1130 ifgs=lefts$(na$,len(g$))thenil60<shift>/<spatie>fa 

1140 goto1l120<shift>/<spatie>fb 

1150 

printchrs(147)chrs(18)chr$(28)"naam/adres/w.pls./tel.nr."3<shift>/<spatie>dlb 

1155" print’ “:gotol120<shift>/<spatie>raf 

1160 printna$”" "cn$" “ts$" “opS<shift>/<spatie>d2f 

1170 getaS$:ifas<>" “thenll7O<shift>/<spatie>04 

1180 gotoil20<shift>/<spatie>13 

1190 print: input“adres."“sg$<shift>/<spatie>b3 

1200 

printchr$(147)chr$(18)chr$(28)"adres/naam/w.pls./tel.nr."3<shift>/<spatie>d5 

1205 print” “€shift>/<spatie>d08 

1210 readnas,cn$,ts$,op$:ifnas="*"then650<shift>/<spatie>99 

1220 ifgs=cn$theni240<shift>/<spatie>13 

1230 goto1210<shift>/<spatie>41 
printcn$" “na$"“ “ts$" “op$<shift>/<spatie>d7f 
getaS:ifas<>" “thenl250<shift>/<spatie>75 
gotol210<shift>/<spatie>63 
open4, 4<shift>/<spatie>41 
printchr$(147)chrs(18)"“printen"<shift>/<spatie>fd 
printchr$(17)"op “chr$(18)"n"chr$(146)"aam"3<shift>/<spatie>d6b 
print” of “chr$(18)"a"chr$(146)"dres"<shift>/<spatie>rel 
getas:ifas=""thenl300<shift>/<spatied16 
ifaS="n"“thenl430<shift>/<spatie>das 
print#4, “adres naam w.pls. tel. 

nr."<shift>/<spatie>8c 

1340 print#4,” “<shift>/<spatie>d99 

1350 printchr$(147)"adres/naam/w.pls./tel.nr."“chr$(17)<shift>/<spatie>da 

1360 readnas$,cn$,ts$,op$:ifna$="x"“thenclose4:goto650<shift>/<spatie>55 

1390 print#4,cn$" “nas" “ts$" “op$<shift>/<spatie>ddl 

1400 printcns” “nas” “ts$" “opsS<shift>/<spatie>de 

1410 gotol360<shift>/<spatie>0a 

1430 print#4,"naam adres w.pls. 

nr."“<shift>/<spatie>28 

1440 print#4," “<shift>/<spatie>05 

1450 printchr$(147)"“naam/adres/w.pls./tel.nr."<shift>/<spatie>f6é 

1460 readna$,cn$,ts$,op$:ifnas="x"thenclose4:goto650<shift>/<spatie>bl 

1470 print#4,nas" “cns" “ts8" “opsS<shift>/<spatie>0Ol1 

14860 printnas" “cn$" “ts$" “opS<shift>/<spatie>6be 

1490 gotol460<shift>/<spatie>5d 

10010 datax,x,*,x<shift>/<spatie>92 
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COMMODORE DOSSIER AKTIEF PROGRAMMA’S 


Maandelijkse rubriek met listings van programma’s die waard zijn in uw proaranma desta te worden opgenomen. 

Alle ie tL zijn voorzien van een a zodat fouten bij het intikken vrijwel zijn uitgesloten. Het controle-getal 
wordt in elke regel vooraf gegaan or nee ie]. Deze twee woorden moet u niet intikken, maar u moet tegelijkertijd de 
shift-toets en de spatiebalk indrukken. Op het scherm ziet dat eruit als een gewone spatie. Voor nadere informatie over het 


controle-getal, zie de handleiding elders in dit nummer. 


SOLO MISSION 


Bij dit spel gaat het er in het van Gremlin Graphics. Het spel terecht in de regels 1006 tot vaartuig respectievelijk sneller 
kort om allerlei obstakels te is ’open’ geprogrammeerd zodat 2000. Toevoegingen in Basic en langzamer, met ; en / respec- 
omzeilen met een ruimtevaar- de gebruiker makkelijk kan in- zijn niet van invloed op de ma- __tievelijk omhoog en omlaag. 
tuig. Het werd geschreven door _ grijpen. Wie iets aan het spel chinecode. Met de C= toets en 

de professional Tony Crowther _ wil toevoegen kan bijvoorbeeld _ de shift-toets gaat het ruimte- 


SOLO MISSION 


printchr$(8)<shift>/<spatie>6da 
data0,0,0,0,0,0,0,0<shift>/<spatie>bb 
data0,0,0,0,0,0,0,0<shift>/<spatierbl 
data0,0,0,0,0,0,0,0<shift>/<spatie>87 
datal0,15,0,58,191,192,250,191<shift>/<spatie>as 
data232,250,170,170,58,170,170,2<shift>/<spatierda8 
datai70,170,0,170,168,0,0,0<shift>/<spatie>ded 
data0,0,0;050;030,0sshift>/<spatieri£f 
data0,0,0,0,0,0,0,0¢<shift>/<spatie>f5 
data255, 255, 255,255,255 ..2554255, 295%Sshi ft /<spatie deb 
data170,85,85,85,0,0,0,0<shift>/<spatie>fa 
dataO,0,0,1,23,2,169,1<shift>/<spatiedea 
datal41,25,208,141,18,208,141,26<shift>/<spatie>13 
data208,169,0,141,14,220,169,16<shift>/<spatie>d2f 
Gatai4i,17,208,120,169,56,141,20<shift>/<spatie>09 
data3,169,48,141,21,3,88,96<shift>/<spatie>05 
d@atai69,1,141,25,208,238,21,48<shift>/<spatie>35 
datal73,21,48,201,1,208,109,169<shift>/<spatierlf 
data21,141,24,208,169,86,141,18<shift>/<spatie>17 
data208,169,0,141,22,208,76,98<shift>/<spatie>5d 
data49,169,0,141,21,48,169,29<shift>/<spatie>70 
datail41,24,208,169,0,141,18,208<shift>/<spatie>72 
dateal73,20,48,56,237,19,48, 20i<shiftd/<spatie>70 
datal6,176,10,24,105,8,141,20<shift>/<spatie>55 
datad8,76,137,48,234,141,20,48<shift>/<spatie>Ge 
data76,49,234,0,0,0,0,0<shift>/<spatie>da3 
data0,234,162,0,189,241,4,157<shift>/<spatie>ad 
data240,4,232,224,240,208,245, 162<shift>/<spatie>b9 
data0,189,225,5,157,224,5, 189<shift>/<spatie>8e 
data209,6,157,208,6,232,224,240<shift>/<spatier81 
data208,239,76,203,48,224,240, 208<shift>/<spatie>9e 
data245,76,129,234,201,2,208,161<shift>/<spatie>de 
datai73,20,48,141,22,208,169, 160<shift>/<spatie>d8 
datai41,18,208,169,29,141,24,208<shift>/<spatie>cO 
data76,129,234,169,23,133,250, 169<shift>/<spatie>f9 
dataS,133,251,162,0,160,0,169<shift>/<spatiercd 
data0,145,250,165,250,24,105,40<shift>/<spatierd8& 
datai33,250,165,251,105,0,133,251i<shift>/<spatie>da3 
data23Z,224,18,208,232,169,0,141<shift>/<spatie>15 
datail32,48,169,23,133,250,169,5<shift>/<spatie>30 
data133,251,174,131,48,165,250, 24<shift>/<spatie>3d 
datai05,40,133,250,165,251,105,0<shift>/<spatie>3c 
datai33,251,202,16,240,169,1,160<shift>/<spatie>3e 
data0,145,250,162,0,165,250,24<shift>/<spatie>27 
datai05,40,133,250,165,251,105,0<shift>/<spatie>5a 
data133,251,169,38,160,0,145,250<shift>/<spatie>50 
data232,224,5,208,232,76,56,49<shift>/<spatierdc 
data0,0,0,0,0,0,0,0<shift>/<spatie>4e 
datal69,1,141,15,220,173,6,220<shift>/<spatie>78 
data201,30,176,13,173,131,48,201<shift>/<spatie>6l 
data0,240,3,206,131,48,76,95<shift>/<spatie>63 
data49,201,200,144,249,173,131<shift>/<spatie>8d 
data48,201,10,240,242,238,131,48<shift>/<spatie>85 
data76,129,234,165,197,201,50<shift>/<spatieras8 
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COMMODORE DOSSIER AKTIEF PROGRAMMA’S 


data208,3,206,1,208,201,55,208, 3¢shift?/<spatierdab 
data238,1,208,238,6,220,238,6,220<shift>/<spatie>83 
datai73,6,220,41,31,201,1,176<shift>/<spatie>9l 
data36,133,172,169,5,133,171,169<shift>/<spatierda 
datal83,133,170,174,131,48,202<shift>/<spatieocf 
data240,14,165,170,24,105,40,133<shift>/<spatiercd 
datal70,144,2,230,171,76,142,49<shift>/<spatie>dc7 
datal69,53,160,0,145,170,76,129<shift>/<spatierc3 
data234,20,20,105,105,105,20,20,0<shift>/<spatierce 
fori=12224tol2719:reada:pokei,a:tt=ttta:next{shift>/<spatie>df9 
iftt<>54591thenprintchrs(147) "data error":end<shift>/<spatie>?25 
a=12307:rem speed<shift?/<spatie>rad 
b=12308:rem pos/scroll<shift>/<spatie>8f 
c=12419:rem tunnel:yco-od<shift>/<spatie>90 
d=53249:rem car ycotshift>/<spatieocf 
e=53248:rem car xco<shift>/<spatie>cd 
sc=O:pokee+21,0:goto980<shift>/<spatie>s3 
poke53280,0:poke53281,12:printchr$(152)chr$(147):poke53281,0:tis="000000"<sh 

ift>/<spatie>40 

730 pokea,S:pokec,o5:sysi2310<shift>?/<spatie>75 

731 printchr$(19%chrs(29)chr$ (29 chr$C29)chr$C17) chr$C 17 chrsC29 chr$C29)3<shift 

>/<spatie>78 

732 printchrs$(29)chr$(29)chrs(29)chrs$(29)chr$(29)chr$(29)chrs$ (29) chr$(29)3<shift 

>/<spatie>d7c 

733 printchr$(29)"topscore "hi<shift>/<spatie>da9 

741 printchr$(19)chr$(29)chrs(29)chrs$(29)chr$C17) chr$(17)3<shift>/<spatie>46 

742 forxx=1to27:printchr$(29)3:nextxx:print"tijd "right$(ti$,3)<shift>/<spatie 

>d4 

750 printchr$(19)3:forxx=1to8:printchrs(17)3:nextxx<shift>/<spatierc4 

760 fori=O0to39:poke1224+i1,38:pokel984+i,38:next<shift>/<spatie>da7 

770 pokea,0:poke54276,0:poke54277,31:poke54273, 2: poke54276, 129: poke54296, 15<shif 

t>/<spatierdde 

780 fori=Otoli:printchr$(29)chr$(29)chr$(29)chr$ (29) "&&&&&&EEEEEK" rnextshift>/< 

Spatie>dfa 

790 pokee,100:poked, 160: pokeet+21,1<shift>/<spatie>74 

800 poke2040,191:pokee+28, i<shift>/<spatie>f2 

810 pokee+37,1:pokee+38,11:pokee+39, 14<shift>/<spatie>ddc 

820 fori=1t010:s=53279:w=peek(s):next<shift>/<spatie>rcf 

830 t=peek(653)<shift>/<spatie>d28 

840 ifpeek(s)then920<shift>/<spatie%cc 

850 iftis>”"OCOO6O"then920<shift>/<spatie>rc8 

860 poke54276,0:poke54277,21:poke54273,peeKla) :poke54276,129<shift>/<spatie>dea 

870 printchr$(19)chr$(29)chrs(29)chrs(29)chrsC17 chrs(17)3<shift>/<spatierc4 

871 forxx=1to27:printchr$(29)3:nextxx:print"tijd “right$(ti$,3):poke53286, l<shif 

t>/<spatie>rde 

880 sc=sctpeeK(ad:printchrs$(19)chr$( 17) chr$(17) chr$(5)" score"ssctshift>/<spatie 

>34 

890 ift=lthenifpeek(a)<6thenpokea,peekCadt+i<shift>/<spatierda 

900 ift=2thenifpeek(a)>Othenpokea, peek(a)d-1<shift>/<spatie>b2 

910 goto830<shift>/<spatie>3f 

920 pokea,O<shift>/<spatie>Sl 

930 poke53274,0:poke788, 49:poke789,234:poke56334, l<shift>/<spatierdad 

940 printchr$(147):poke53248+24,21<shift>/<spatie>d4 

950 poke54296,15:poke54276,0:poke54277, 31: poke54273, 140: poke54276, 129<shift>/<sp 

atie>of 

960 fori=1to0500:pokeet+21,0<shift>/<spatied44 

970 ifsc>hithenhi=sctshift>/<spatiereo 

980 a$(1)=chr$(147)4+chr$(5)+"solo mission" :poke53280,0:poke53281,0:print<shift>/ 

<spatiereb 

990 a$(3)=chr$(17)+chr$(156)+"voor chm 64”:poke53270,200:poke53265,27<shift>/<sp 

atie>75 

1000 a$(4)=chr$(17)+chr$(156)+"door tony crowther:gremlin graphics"<shift>/<spat 

ie>7c : 

1010 te$=chr$(17)+chr$(158)+"toetsen “tcohr$(18)+"3"t+tchr$(146)<shift>/<spatie?95 

1015 as€5)=te$t+" & “tohr$(18)+"/"tchr$(146)+" op & neer"<shift>/<spatie>9e 
a$(6)=chr$(17)+chr$(158)+"c= toets & shift langzaam & snel"<shift>/<spatie 


a$(7)=chr$(17)+chr$(31)+"topscore ="+str$Chid<shift>/<spatie97 
as(8)=chrs$(17)+chr$(31)+"jouw score ="+str$(sc)<shift>/<spatie>df3 
a$(9)=chr$(17)+chr$(28)+"druk op <spatie> om te spelen"<shift>/<spatie>dcO 
a$(€2)=chrs(5)+" EEEEEEEEEEEE"<shift>/<spatie>9da 
fori=1to9:forj=itolenCasCidd<shift>/<spatiercd 
printmids¢ascid,j510"_"chrs€157)3: fork=itodimextinext:print” “:next¢shift>/ 

<spatie>97 

1090 getaS:ifas<{>" “thentO90<shift>/<spatie>db 

1100 sc=O:goto720<shift>/<spatierSc 
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COMMODORE MARKT 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en cantor gan van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED SOFTWARE AAN 

@ Te koop of te ruil software voor de 
CBM-64. f 1,- per stuk. Bel Jeroen na 7 
uur. Tel.05146-3284, 


@ Voor Commodore: CP/M cartridge met 
schijf en gebruiksaanwijzing. Gloednieuw 
voor halve prijs f 250,-. Tel. 055-419641. 


@ CBM-64 software te koop. f 2,- per 
programma. Ook ruilen. Johan van Reede, 
Beethovenlaan 7, 1272 ED Huizen. Tel. 
02152-51316. 


@ Software voor de CBM-64 op diskette, 
f 1, per stuk (exclusief disk). J. Boven, 
De Rozetuin 9, 9203 LP Drachten. 
Tel.05120-31349. Na 19.30 uur. 


@ Software voor de CBM-64. Ik heb rond 
de 400 programma’s (educatief en spel) 
waaronder Dallas Quest, Datamanager, To- 
pografie, Toy, Bizarre. Rob van Doorn, 
Prins Bernardstraat 5, Waddinxveen. Tel. 
01828-14162. 


@ Te koop of te ruil software voor de 
CBM-64. Stuur lijst of vraag lijst. Graag 
posizegel voor antwoord bijsluiten. Fam. 
v.d.Heyden, Postbus 346, Maarssen. 


@ Bied aan Picasso-64 (cassette) f 35,—. 


het grafiekboek van de Commodore (Data 
Becker) f 17,50. H. Sanders, De Krim. 
Tel. 05247-1829. 


@ Software voor CBM-64 ruilen. Stuur 
lijst naar P. Calle, Perim 335, 1503 GE 
Zaandam. Zoek tekstverwerker met ac- 
centen voor op CBM-64. 


IK ZOEK SOFTWARE 

@ Wie heeft voor mij grafische adventu- 
res voor CBM-64 (Engelstalig). A.v.Dien- 

broek, Reijdersant 26, 8303 XN Emmel- 
oord. Tel.05270-97112 na 17.00 uur. 


@ Gezocht voor de CBM-64: Quo Vadis, 
The hobbit. Eventueel ruilen. Tel. 
01158-1601. 


@ Wie kan mij helpen aan een handlei- 
ding (eventueel fotokopie) van Vizawrite. 
Eventuele onkosten worden vergoed. Tel. 
030-780202. 


@ Ik zoek database en spreadsheet voor 
Commodore 610 op diskette 170K. Put- 
zeis Luc. Hoegaardenstraat 84, 3000 
Leuven. 


@ Wie kan mij helpen aan programma’s 
op cassette of papier voor de CBM-64, 
eventueel tegen redelijke vergoeding. A.H. 
Mouthaan, Hoornstraat 19, 5402 MN 
Uden. Tel. 04132-50204. 


IK BIED HARDWARE AAN 

@ Bied aan voor Vic-20 Forth cartridge 
+ 16KRam (schakelbaar) + Forth boek 
+ 2 slots expansiebord. f 200,-. Tevens 
veel uitbreidingen en spelletjes. Marco 
Hankel. Tel. 010-772839. 


@ Vic-20 vraagprijs f 300,-. In prima 
staat + veel software + boeken + Cas- 





setteinterface. reden: aanschaf groter 
systeem. Tel. (na 18.00 uur) 
08373-16250. 


@ Aangeboden CBM-64 + drive + prin- 
ter + cass. + 2 joystick + CP/M incl. 

Z80 + Simons Basic Rom + 38 disket- 
tes met diverse software inclusief hand- 

boek en reference guide. Totaal f 2850,-. 
Tel. 04192-12899. 


@ Bied aan Commodore 8050 diskdrive. 
een jaar gebruikt. 2 x 500 Kb. f 2000,. 
Tel. 023 — 310747 (na 18.00 uur). 


@ Bied aan ZX 81+cassetterecorder+TV 
31 cm.+toetsenbord+software en boe- 
ken. t.e.a.b. Tel. 01684-3782. 


@ Bied aan Vic-20+recorder+software+ 
boeken. Prijs f 400,—. Tel. 038-215884. 


@ Te koop aangeboden Commodore 64 
(6 maanden oud), z/w monitor amberkleu- 
rig (2 maanden oud), software ter waarde 
van f 1000,—, datarecorder, joystick, boe- 
ken, tijdschriften. Prijs f 1500,—. 


@ Vic-20+cass.+8K+gebruiksaanwij- 
zing+boek voor programmeurs. Prijs 

f 450,—. Tel. 02503-30556. Na 18.00 
uur. 


@ Bied aan speedioader voor diskdrive 
1541 voor CBM-64. cartridge f 65,—. Ni- 
co Vanlijperen, Avenue Concordia 9B, 
3062 LA Rotterdam. Tel. 010-330230. 


BON 


Amsterdam. 


Aankruisen a.u.b. 


Ik bied | hardware 





aan software 














IK WIL RUILEN 

@ CBM-64 software te ruil (cass.), 
ca.200 titels. Stuur uw lijst naar: Hans 
Huttner, Puccinihof 635, 

5049 GX Tilburg. 


@ Ik heb meer dan 500 programma’s op 
disk om te ruilen. Zoek manuals Geopoli- 
tics, Tigers in the snow etc. J. Schilder- 
mans, De Paepestraat 51A, 2410 Heren- 
tals (Belgié). Tel. 014-221471. 


@ Ik heb plusminus 300 programma’s 
om te ruilen. L. de Blauw, Cl.Fonteij- 
nestraat 6, 8701 EL Bolsward. 
Tel.05157-4228. 


@ Ik heb plusminus 300 programma’s en 
wil deze ruilen tegen andere CBM-64 pro- 
gramma’s. L. de Blauw, Cl. Fonteynestraat 
6, 8701 EL Bolsward. Tel. 05157-4228. 


@ Stuur mij een bandje met 20-30 goe- 
de CBM-64 programma’s en u ontvangt 
eenzelfde bandje terug. B. Deen, 
Breedstraat 90, 1601 KE Enkhuizen. Tel. 
02280-13660. 


@ CBM-64 club ruilt programma’s. Bezit 
zelf 1000 programma’s. Schijf of bel naar 
J.L. van Loo, Kabouterweg 39, B-8460 
Koksijde. Tel. 00352-058511669 na 
17.00 uur. 


@ Ik wil software ruilen. Ik heb 800 pro- 
gramma’s. Peter van Gemert, Eglantier 10, 
6081 CJ Haelen. Tel. 04759-2231. 


@ Tekening model-sleepboot, inclusief 
zender, geheel vaarklaar. Gezocht CBM 
803 printer of 2M All Mode set. 

B. de Graaf, Schagerbrug NH. Tel. 02247- 
1926. 


@ Commodore-64 software te ruil ge- 
vraagd. Stuur lijst naar H. Buikema, Fult- 
semaheerd 54, 9736 CR Groningen. 


@ Software ruilen voor CBM-64, ca. 400 
programma’s. Stuur je lijstje naar: P. Her- 


Gratis opname in de rubriek COMMODORE MARKT 
Inzenden aan: COMMODORE DOSSIER, Rijnsburgstraat 11, 1059 AT 


In een voldoende gefrankeerde enveloppe. 
Gerubriceerde kleine standaardadvertenties voor lezers. 
Uitsluitend voor particulieren.* Geen afbeeldingen of tekeningen. 

Verzoek om plaatsing van onderstaande teksten in de eerstvolgende CDA, 
mits ruimte beschikbaar is. 






























L] hardware LJ Ik wil ruilen 
LI software Overigen 


mens, Baaksstraat 21, 6369 HG Simpel- 
veld. Tel. 045-443131. 


@ Spellen te ruil voor de CBM-64. Onder 
andere Zaxxon, Ghostbusters, Impossible 
Mission, Beach Head en Solo Flight. Bel 

02510-38906 en vraag naar Fulco. 


@ Wie wil met mij spel- en gebruikspro- 
gramma’s ruilen op cassette voor de 
CBM-64. W. Leschot, Tilanusstraat 4B, 
1091 BH Amsterdam. 


Ik ZOEK HARDWARE 


@ Zoek Commodore 64 of Spectrum 
48K, eventueel met randapparatuur en 
software. aanbiedingen alleen ’s avonds 
na 19.00 uur. A. Gans. Tel. 050-719477. 


@ Zoek 1541 diskdrive tegen redelijke 
prijs. V. Leeuwen. Tel. 075-164902 na 
19.00 uur. 


@ Gevraagd: Kleuren TV, maximaal 51 
em-scherm. Prijs tot f 300,—. J. de Vries, 
Frans Leharpark 35, 5144 TD Waalwijk. 
Tel. 04160-39089. 


@ Wie heeft voor mij een goede diskdri- 
ve 1541 te koop. Prijs tot f 500,—. Aan- 
biedingen en prijsopgaven naar M. Boks- 
hoon, Zonneoord 229, 2544 KE Den 
Haag. Tel. 070-673492. 


@ Zoek grafische printer voor CBM-64, 
aanbiedingen en prijsopgaven naar Herbert 
de Jong, Kerklaan 17, 2471 AK Zwam- 
merdam. Tel. 01726-13511. 


@ Zoek kleurenmonitor en diskdrive voor 
CBM-64. T. van der Veer, Grote Stern 
125, 3181 SE Rozenburg. Tel. 01819- 
14971. 


@ Zoek CBM-64 en recorder voor begin- 
ner. Tel. 078-184903. 
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*teksten van commerciéle aard worden geweigerd voor opname. 


A.u.b. slechts 25 letters per regel, incl. leestekens en woord-tussenruimte van telkenmale 
1 hokje. Schrijf a.u.b. duidelijk. Er worden uitsluitend opdrachten uitgevoerd, wanneer er 
sprake is van volledige adresopgave en/of tel. vermelding. 
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CLUBS 


Maandelijkse rubriek met de belangrijkste informatie uit de 


Commodore gebruikersclubs. 


6502 KENNERS BIJEEN 


Voor Commodore gebruikers 
die eens buiten de eigen kring 
willen kijken, kan de landelijke 
bijeenkomst van de KIM-gebrui- 
kersgroep interessant zijn. Deze 
gebruikersgroep staat ook be- 
kend onder de naam *De 6502 
kenners’. Tot die kenners mo- 
gen de Commodore gebruikers 
zich ook rekenen omdat de 6510 
die de CBM-64 gebruikt en de 
6508 van de Vic-20 vergelijkbare 
processoren zijn. De landelijke 


bijeenkomst van de 6502 ken- 
ners wordt op 16 maart gehou- 
den in het gemeenschapshuis 
*De zes gehuchten’ aan de Pa- 
penvoort 10 te Geldrop. Mocht 
u echter te laat naar uw postbus 
zijn gelopen om dit Aktief er 
uit te halen dan heeft u de dag 
gemist. Wellicht kunt u dan 
echter van de secretaris 
(08370-23646) vernemen wat ’de 
kenners’ eventueel voor u in de 
toekomst kunnen betekenen. 


BENELUX COMPUTERDAG ’85 


In de Leysdream evenementen- 
hallen te Roosendaal houdt de 
Roosendaalse Computer Club 
op vrijdag 19 en zaterdag 20 
april voor de vierde keer de Be- 
nelux Computerdag. Het is de 
eerste keer dat dit evenement 
twee dagen duurt en ook het 
vlocroppervlak van de beurs is 


Stichting Computer Hobbyisten 
Nederland (SCN) 
HOT NEWS 


Secretariaat: A. Brink, 

tel. 03450-16051 (ma-, di- en 
woensdag tussen 13.00 en 22.00 
uur) 

Voor inlichtingen over de regio- 
nale afdelingen kunt u zich 
wenden tot: 

Afdeling Zwolle: P.P.L. van 
Bijsterveld, tel. 038-548459. 


groter dan ooit: maar liefst 
5000 vierkante meter dit keer. 
De RCC is geen gespecialiseerde 
club, dus behalve Commodore 
computers zullen ook andere 
merken vertegenwoordigd zijn. 
Wellicht kunt u als Commodore 
gebruiker de andere aanwezigen 
nog wat leren. 


Afdeling Midden Nederland: H. 
Scheffer, tel. 03453-1375 
Afdeling Deventer: 

tel. 05700-50758/50759 
Algemene bijeenkomsten: 
tweede zaterdag van de 
maand in de scholengemeen- 
schap Centrum/oud-west, Jan 
van Galenstraat t/o nr. 14, 
Amsterdam. Vanaf april wor- 
den de bijeenkomsten gehou- 
den in De Meervaart, Osdorp- 
plein, Amsterdam. 


Vereniging voor de Gebruikers 
van Commodore-computers in 
Nederland (VCGN) 


Secretariaat: Ine van Teijlin- 
gen, De Brink 928, 2553 HT 
Den Haag, tel.: 070-971851 
(van 20.00-22.00 uur, m.u.v. 
maandag en woensdag) 
b.g.g. 070-687924 of 
070-946156 


Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeeland: R. van 
Dijk, tel. 01180-25746 
Afdeling West-Brabant: P. 
Nelen, tel. 01640-51639 
Afdeling Midden-Brabant: W. 
Wils, tel. 01620-55634 
Afdeling Oost-Brabant: C. de 
Winter, tel. 04120-42054 
Afdeling Zuid-Limburg: J. 
van Mastrigt, tel. 043-476935 
Afdeling Zuid Holland-Zuid: 
D. van Riemsdijk, tel. 
010-501023 

Afdeling Noord Holland-Zuid: 
J.A. Dekker, tel. 02502-7968 
Algemene bijeenkomsten: 
laatste zaterdag van de maand 
in Rijswijk (Lodewijk Make- 
blijde College, H.R. Holstlaan 
2, 2283 HB). 
Afdelingsbijeenkomsten: 
Afdeling Zeeland: bij wijze 
van proef: 

zaterdag 9/3 overdag. De data 
van de overige bijeenkomsten 
zijn nog niet bekend. 

Afdeling West-Brabant: eerste 
zaterdag van de maand. 
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Voor Belgié: TUM, Antwerpen, 
tel. 03 - 237 0120 


ADVERTENTIE-SECRETARIAAT 
Rob van den Berg 





ADVERTENTIE-EXPLOITATIE 
Johan |Jsebrands 


Afdeling Midden-Brabant: 
derde zaterdag van de maand 
Afdeling Oost-Brabant: derde 
zaterdag van de maand 
Afdeling Zuid-Limburg: eerste 
zaterdag van de maand 
Afdeling Zuid Holland-Zuid: 
eerste zaterdag van de maand 
Afdeling Noord Holland-Zuid: 
eerste zaterdag van de maand 


PET-Benelux Exchange 
Secretariaat: Copytronics, 
Postbus 700, 7400 AS Deven- 
ter, tel. 05759-2211 

Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeist: tel. 05759-211 
Afdeling Nijmgen: tel. 
05759-2211 

Afdeling Haaksbergen: tel. 
053-766444 

Service Reparatie Centrum voor 
PET-leden: tel. 053-766444. 
Algemene bijeenkomsten: 
Afdeling Zeist: eerste zaterdag 
van de maand 

Afdeling Nijmegen: tweede za- 
terdag van de maand 

Afdeling Haaksbergen: derde 
zaterdag van de maan 


HCC-Commodore-COMPET gebrui- 
kersgroep 

Secretariaat: J.J. van Douwen, 
Couwenhoven 1203, 3703 VB 
Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 23/3, 8/6, 
21/9 en 30/11 

Waddinxveen: zaterdag 

27/4, 6/7, 26/10 en 21/12. 


PRODUKTIE 


Smeets Offset (NBI) 
*s-Hertogenbosch 


(c) Copyright 1985 by 

VNU Business Publications BV, 
Amsterdam, Londen. 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 







Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als uze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwellijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 3O tekens per 
sekonde en de fluisterstilte onder het printen. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt 
overal onvercdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand brother 
adres. Adviesprijs i 695,- EX, btw. se SAREE IMT ESy TEL AORTA 


BO N = Ik wil meer informatie over de HR-5. 


Naam: 











Postcode: ____SS:C*é~P*QAKS: 





I 
l 
I 
Adres: i 
I 
1 
1 
1 


Battery powered en netvoeaing. 


eeu =7 Brother International (Nederland) BV, 
a) _ Zanderij 25-27, 1185 ZN Amstelveen. Telefoon 020-47 4471" 








Jutuiorld 


Het beste boekhoud- 
pakket voor de 64 ko 
nog geén 900 gulde 


Het wereldsucces van de Commodore 64 en de enorme belangstelling voor SoftWorld’s 
professionele programmatuur voor deze Personal Computer zorgt voor een doorbraak! 
SoftWorld’s complete boekhoudpakket FINAD 64 PLUS gaat voor f 899,- (incl. BTW) 
over de toonbank... Géén geld voor dit superieure administratiepakket, dat tegemoet 
komt aan de eisen en verlangens van zelfs de meest professionele gebruiker. 

FINAD 64 PLUS omvat Grootboek, kolommenbalans, faktureren, debiteuren en 
crediteuren (met ouderdomsanalyse), aanmanen, rapporteren. U kunt het programma 
probleemloos gebruiken voor uw eigen bedrijf, maar 66k de administratie voor derden 
ermee voeren! De lay-out generator stelt u in staat een perfecte eigen faktuurindeling te 
maken, ook op voorgedrukte formulieren. Vraag uw SoftWorld dealer om alle informatie! 














ALKMAAR, De Computer, 072-124216. AMSTERDAM, Computerteam, 020-769494. BITS & CHIPS, 020-716992. Computer Collectief, 020-223573. APELDOORN, 
Serva Computer, Business Center, 055-133770. BEVERWIJK, De Computer, 02510-10833. BERG EN TERBIJT, Haje Electronics, 04406-40138, (alleen COM-IN 64). 
BREDA, Indelec, 076-142333. DEN BURG, Van Wijngaarden, 02220-2695. Foto Video Nauta, 02220-2294. DEN HAAG, Vitex Computers, 070-648733. 
Tefo-Lubbers, 070-886098. DORDRECHT, PC-SHOP, 078-311516. EINDHOVEN, Vogelzang, 040-447955. ENSCHEDE, Computerwinkel, Oost Nederland, 
053-337296. ETTEN-LEUR, Colijn Data Systemen, 01608-22649. GENNEP, Veenendaal Computer Systemen, 08851-13334. GOES/KLOETINGEN, Colijn Data- 
systemen, 01100-14008. HAARLEM, Fa. van Zutphen, 023-321924. De Computer, 023-310871. HEERENVEEN, Foto Brouwer, 05130-22401. HEERLEN, Vogelzang, 
045-716055. HENGELO, Hobbelink, 074-427275. HILVERSUM, ComputerWorld, 035-12633. HOUTEN, Veenendaal Computer Systemen, 03403-72796. 
MAASTRICHT, Vogelzang, 043-14169. MEERSEN, T.V. Deusings, 043-642079. NIJMEGEN, Marveld Computing, 080-237219. OSS, Harense Smid, 04120-43244. 
ROTTERDAM, Computer World, 010-137823. Telecoder, 010-334242. Game World, 010-133770. UTRECHT, Game World, 030-317355. VEENDAM, 

Schuur Veendam, 05987-18755. VROOMSHOOP, Het Kasregisterhuis, 05498-42811. ZEIST, Compute Zeist, 03404-25252. ZAANDAM, De Computer, 


075-319207. ZALTBOMMEL, Foto Lux, 04180-2750, K , orl d ae 
Zoektijd: 
2 seconden! 


SoftWorld’s DATAMANAGER 64 programma is ontworpen voor het aanleggen van een eigen, 
professioneel geautomatiseerd archiefsysteem. Het invoeren van uw gegevens is kinderspel, 
evenals het weer terugvinden ervan! Op basis van sleutelwoorden kunt u uit alle ingevoerde 
gegevens (3800 records op één floppy disk) razendsnel de door u gewenste informatie 
zoeken en selecteren. De zoektijd bedraagt slechts 2 seconden! DATAMANAGER 64 is ideaal | 
voor ledenadministraties, patiéntenbestanden, platencollecties, bibliotheken, winkel- 
voorraden, kunst- en antiekverzamelingen, adresbestanden van leveranciers, afnemers, 
abonnees, enz. Afdrukken van lijsten en adreslabels is uiteraard probleemloos mogelijk. 
SoftWorld’s DATAMANAGER 64 programma wordt geleverd als ROMpack, dat 
simpelweg achterin de Commodore 64 Personal Computer wordt gestoken. 

Voor dit opmerkelijke programma betaalt u toch niet meer dan f 299,- (incl. BTW), 









ALKMAAR, De Computer, 072-124216. AMSTERDAM, Computerteam, 020-769494. BITS & CHIPS, 020-716992. Computer Collectief, 020-22357. APELDOORN, 
Serva Computer, Business Center, 055-133770. BEVERWIJK, De Computer, 02510-10833. BERG EN TERBLIT, Haje Electronics, 04406-40138, (alléén COMIN 64). 
BREDA, Indelec, 076-142333. DEN BURG, Van Wijngaarden, 02220-2695. Foto Video Nauta, 02220-2294. DEN HAAG, Vitex Computers, 070-648733. 
Tefo-Lubbers, 070-886098. DORDRECHT, PC-SHOP, 078-311516. EINDHOVEN, Vogelzang, 040-447955. ENSCHEDE, Computerwinkel, Oost Nederland, 
053-337296. ETTEN-LEUR, Colijn Data Systemen, 01608-22649. GENNEP, Veenendaal Computer Systemen, 08851-1 3334, GOES/KLOETINGEN, Colijn Data- 
systemen, 01100-14008. HAARLEM, Fa. van Zutphen, 023-321924. De Computer, 023-310871. HEERENVEEN, Foto Brouwer, 051 30-22401. HEERLEN, Vogelzang, 
045-716055, HENGELO, Hobbelink, 074-427275. HILVERSUM, ComputerWorld, 035-12633. HOUTEN, Veenendaal Computer Systemen, 03403-72796. 
MAASTRICHT, Vogelzang, 043-14169. MEERSEN, T.V. Deusings, 048-642079. NIUMEGEN, Marveld Computing, 080-237 219. OSS, Harense Smid, 04120-43244. 
ROTTERDAM, Computer World, 010-137823. Telecoder, 010-334242, Game World, 010-133770. UTRECHT, Game World, 030-317355. VEENDAM, 

Schuur Veendam, 05987-18755. VROOMSHOOP, Het Kasregisterhuis, 05498-42811. ZEIST, Compute Zeist, 03404-25252. ZAANDAM, De Computer, 
075-313207. ZALTBOMMEL, Foto Lux, 04180-2750. 








Omdat er niet 66n, maar vele overzichten 
gemaakt moeten worden. Zoals een exploi- 
tatierekening, loonadministratie, crediteu- 
ren, debiteuren- en liquiditeitsoverzichten, 
voorraadadministratie etc. Elke keer op- 
Altera aon 

~ Omdat de Commodore personal com- 
puter deze omvangrijke werkzaamheden 
el CCMART-FeINIO VOLO) MOTIVE, /McclAM01c18) 

Omdat er meer dan 2000 programme's 
zijn die elke vorm van bureauwerk kunnen 
vereenvoudigen. 

Bovendien werkt dit "nummer 1 merk” 
in microcomputers op meer punten naar de 
positieve kant van de balans. Namelijk met 
de beste service- en instructiefaciliteiten 
door een zeer uitgebreid dealernetwerk. 

En vooral.... omdat de Commodore een 
zeer bescheiden aandeel heeft in de be- 
IAS 

Daarom brengt de Commodore behalve 
de boekhouding misschien ook andere kan 
toorwerkzaamheden in een betere balan 


Commodore 
Daar wordt een mens wijzer van. 





